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ABSTRACT 


Tha  objactlva  of  thia  thaaia  la  to  provida  a  aoftvara 
tool  to  aupport  tha  Daputy  Chlaf  of  Staff  for  Paraonnal 
and  Staff  Function  of  tha  Indonaaian  Navy  In  making 
dacialona  vlth  faat,  tlmaly,  ralavant,  up-to-data  and 
accurata  Information  ragardlng  Paraonnal  Managament 
actlvltlaa. 

A  databaaa  daalgn  la  propoaad  Including  tha  logical 
and  phyalcal  phaaaa  and  an  Implamantatlon  of  a  paraonnal 
databaaa  prototypa  la  undartakan  on  a  mlcroconputar  ualng 
dBaaa  II. 
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I.  INTRODUCTION 


The  most  important  rt>ourc>  in  any  organization  is  its 
psrsonnsl.  All  aspscts  of  an  organization  art  dapandant  on 
personnel,  so  a  larga  maaaura  of  tha  suceass  of  an 
organization  dapands  on  proparly  managing  it's  human 
rasourcas.  This  makas  parsonnal  managamant  a  critical  task. 

Dacisions  which  affact  parsonnal  must  ba  carefully 
plannad.  Parsonnal  ara  human  beings,  unlika  othar  resources 
such  as  materiel  or  money.  Materiel  may  ba  moved  about 
without  tha  same  considerations  involved  with  moving 
people.  Material  does  not  need  a  life-cycle  management 
system  as  complex  as  parsonnal  managamant. 

Tha  parsonnal  administration  cycle  consists  of 
procurement,  classification,  education,  utilization, 
treatment,  and  separation  CRef.  13.  Each  phase  must  be 
carefully  plannad  and  followed  by  a  decision  that  requires 
information  suppot.  Tha  information  support  must  be 

accurate,  timely  and  relevant. 

Human  memory  is  limited  and  does  not  always 
process  information  fast  enough.  A  computer  can  aid  the 
human  mind  because  it  has  tha  capability  to  process  large 
amounts  of  data  with  high  accuracy  and  little  error. 

In  light  of  tha  needs  and  capabilities  described  above, 
this  thesis  will  discuss  personnel  management  base  on 


database  management  using  microcomputers  as  decentraliced 
activities.  This  thesis  will  investigate  the  use  of  a 
microcomputer  for  processing  personnel  management  data.  It 
will  show  how  a  decentralized  database  system  can  provide 
information  to  assist  a  Deputy  of  Personnel  and  Staff 
Function  in  decision  making  regarding  personnel  management 
activities. 

This  system,  which  keeps  track  of  an  officer's  career 
(job  placement,  promotion,  education,  training,  etc), 
provides  current  information  regarding  an  officer's  career 
and  shows  what  kind  of  jobs  or  education/training  should 
be  scheduled  for  a  certain  officer  to  gain  required 
knowledge  and  experience  before  being  assigned  a  specific 
Job. 

A  reorganization  of  the  Indonesian  Navy  was  applied  at 
the  end  of  1985.  Because  of  the  restructuring  and 
insufficient  information  about  the  existing  personnel 
system,  this  thesis  presents  only  a  prototype  for 
Implementation. 

Chapter  II  discusses  the  Indonesian  Navy  personnel 
function  activities  and  crucial  problem  in  the  present 
system,  which  the  prototype  is  designed  to  address. 

Chapter  III  reviews  the  database  development  process, 
which  includes:  the  general  system  analysis  and  design,  the 
database  system  concept  and  the  advantages  and  disadvantages 
of  using  it,  and  introduction  to  database  design  (both 


logical  and  physical),  with  special  emphasis  on  relational 
database  design  which  focuses  on  the  relational  forms 
and  the  characteristics  of  relational  databases. 

Chapter  IV  describes  the  implementation  of  this 
personnel  database  system  for  Indonesian  Naval  Officers, 
particularly  the  Officer  Career  System. 

Finally  chapter  V  presents  the  conclusion  that  database 
processing  applied  to  the  Indonesian  Naval  Officer  Career 
System,  can  increase  decision  making  ease,  timeliness, 
confidence,  and  reliability. 

Programs  using  dBase  II  are  provided  so  the  user  can 
easily  interact  with  the  computer  to  get  information  about 
the  officer  career  field.  These  programs  are  shown  in 
Appendix  D. 


II.  BACKGROUND 


A.  INTRODUCTION 

The  Indonesian  Navy  has  many  subsystems,  one  of  which  is 
the  Navy  Personnel  System.  The  Navy  Personnel  System  is 
concerned  with  personnel  resource  utilization,  and 
management  of  other  resources  to  make  the  Indonesian  Navy 
organizationally  effective  and  efficient  in  supporting 
national  defense  and  security. 

B.  PERSONNEL  MANAGEMENT  FUNCTION 

The  Indonesian  Navy  personnel  system  has  two  main 
functions;  Manpower  Management  and  Personnel  Administration. 

1.  Manpower  Management 

In  general  the  main  functions  of  Manpower  Management 
are:  To  investigate  activities  and  to  determine  personnel 
requirements  including  qualification,  quality  and  quantity 
for  supporting  the  Indonesian  Navy's  main  tasks. 

2.  Personnel  Administration 

Personnel  activities  have  the  following  life-cycle 
functions:  Procurement,  Classification,  Education  and 

Training,  Utilization,  Treatment  and  Separation. 

a.  Procurement 

Personnel  procurement  is  the  process  of 
acquiring  new  personnel  from  national  human  resources 
according  to  Indonesian  Navy  Organization  requirements. 


b.  Classification 


Psrsonnsl  classification  is  ths  procsss  of 
analyzing  and  classifying  individuals  by  job/occupation,  so 
that  individual  raquiramants  and  organizational  requirements 
are  in  balance. 

c.  Education  and  Training 

Personnel  education  and  training  are  the 
processes  and  activities  which  Impact  '  knowledge  for 
personnel  development  related  to  assignments  and  promotions. 

d.  Utilization 

Personnel  utilization  is  the  process  and 
activity  of  selecting  the  right  people  for  promotion  and 
job/aesignment.  By  placing  the  right  person  in  the  right 
place,  the  personnel  assignment  system  facilitates  maximum 
exposure  and  chances  for  individual  promotion.  Maximum 
exposure  and  promotion  support  future  personnel  assignments. 

e.  Treatment 

Personnel  treatment  is  a  complex  field,  and  is 
not  an  easy  Job.  Activities  in  this  category  include  salary, 
allowance  (wife,  children),  morale,  leave,  recreation, 
rewards  or  awards,  medical,  insurance,  etc. 

f.  Separation 

Personnel  separation  is  the  process  and 
activity  of  keeping  a  satisfactory  balance  within  the 
organization  while  dealing  with  personnel  retirement. 
Personnel  retirement  occurs: 


-  When  manpovtr  control  and  composition  needs  in 
the  organization  result  in  personnel  separation 
(reductions  in  force). 

-  Because  of  normal  retirement. 

C.  PERSONNEL  SYSTEM  REQUIREMENT 

Information  to  support  decisions  by  the  Deputy  of 
Personnel  must  be  relevant,  timely  and  correct. 

The  organization  must  maintain  many  files  in  the 
personnel  system  such  as  payroll,  separation,  reward, 
classification,  education  and  occupation.  In  a  file 
processing  environment,  these  result  in  a  high  degree  of 
data  redundancy  and  are  difficult  to  maintain  and  update. 
For  example,  after  a  promotion  all  files  related  to  rank 
must  be  changed.  Similarly,  for  personnel  career  planning, 
all  education  data,  occupation  data,  and  rank  data  must  be 
provided  on  the  same  report. 

It  is  not  easy  to  retrieve  information  from  different 
files  in  a  short  time,  and  it  is  inefficient  to  support 
these  kinds  of  information  needs  using  file  systems.  In 
order  to  avoid  duplication,  and  to  facilitate  fast 
retrieval,  a  relational  database  system  may  be  a  desirable 
alternative. 

Using  a  relational  database  system  allows  an 
organization's  data  to  be  processed  as  integrated  files.  It 
reduces  artificially  imposed  constraints  caused  by  separate 
applications  and  permits  the  Deputy  of  Personnel  and  his 
staff  to  access  data  more  naturally. 


D.  THE  CRUCIAL  PROBLEM  IN  THE  PRESENT  SYSTEM 

Personnel  Administration  cycles  like  traininq,  career 
planning,  promotions,  Job  placement  and  separation  pose  many 
administrative  problems.  Training  must  have  standardization 
grades, personal  records  for  each  trainee,  personal  bioqraphy 
etc.  It  is  difficult  to  maintain  and  retrieve  such  data 
accurately  and  quickly. 

The  Navy  Officer  promotion  system  recognizes  two  periods 
in  a  year,  April  and  October.  So  much  data  must  be  collected 
for  supporting  the  candidate's  promotion  that  it  is 
difficult  to  retrieve  data  from  the  source.  Sometimes  human 
errors  occur  or  too  much  data  is  collected. 

When  career  planning  is  done  by  hand,  the  same  problems 
recur  because  one  must  collect  and  gather  data  from  a  filinq 
cabinet  and  then  match  it  with  each  person  and  job. 

When  updating  data  related  to  promotion,  a  nev  job  or 
new  education  it  is  difficult  to  manipulate  data  manually. 
When  calculating  a  pension  for  example,  it  is  difficult  to 
provide  information  quickly  because  the  birth  date  must  be 
subtracted  from  the  current  year  by  manual  methods.  When  the 
executive  or  the  Chief  of  Staff  needs  adhoc  information 
from  the  Deputy  of  Personnel,  manual  systems  cannot  provide 
results  quickly,  thus  he  cannot  make  the  decision  with 


confidence. 


E.  CAREER  MANAGEMENT  CONTROL 


Three  main  activities  occur  in  carttr  control: 
promotion,  education/training  and  job  placvmtnt.  Each 
cloaaly  supports  ths  othsrs. 

i*  ecgsciisa 

As  msntionsd  earlier,  ths  regular  officer  promotion 
systsm  rscognizss  tvo  psriods  in  a  ytar,  April  and  Octobsr. 
Thrss  or  four  months  before,  ths  candidatss  ars  proposed 
from  naval  stations/basss  such  as  West  Fleet,  Marine  Corps 
and  other  Main  Commands.  Much  data  must  be  collected  to 
support  the  candidate's  promotions,  such  as  conduct, 
previous  jobs,  rank  history,  education  and  training 
history,  and  other  administrative  information. 

Sometimes  this  information  appears  vith  manual  typing 
error  or  Incorrect  Information  because  of  human  errors,  and 
much  time  is  lost  correcting  it. 

After  collecting  this  information,  the  career  control 
staff  can  examine  and  clarify  which  officers  are 
eligible  for  promotion.  Education,  job  placement  and  date  of 
rank  determine  eligibility.  The  staff  then  matches  this  data 
vith  data  from  the  personnel  data  bank.  This  procedure,  if 
done  by  manual  methods  as  is  currently  the  case,  is  very 
time  consuming  and  requires  much  staff  and  clerical  support. 

2.  Educational 

The  educational  system  and  its  administration  is  a 
bit  different  from  the  promotion  system.  Information  about 


education  comas  from  centralized  activities. 


but  the  same 
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administrative  process  occurs  as  with  the  promotion  system. 

An  example  is  the  military  education  level  from  general 
development,  for  example  the  Second  Officer  Continuing 
Education  corresponding  to  the  US  Army  Officer  Advanced 
Course.  By  collecting  and  gathering  the  data  from  filing 
cabinets,  the  career  control  staff  can  clarify  and  examine 
which  officers  are  eligible  to  attend  this  course.  After 
that  they  send  a  message/telegram  to  the  Main  Commands  or 
Maval  Stations.  Main  Commands  then  respond  concerning  the 
officer's  elligibility  for  this  course  by  sending  a 
message  back  to  Deputy  for  Personnel.  Again  the  career 
control  staff  handles  this  information  from  all  the  Main 
Commands  and  Fleets.  A  lot  of  time  is  spent  in  clerical 
tasks,  and  even  more  staff  is  needed  to  handle  educational 
activities. 

3.  Job  placement 

For  regular  Job  placement  the  peak  load  activities 
happen  as  the  officer  nears  the  end  or  finishes  a  course. 
After  examining  the  officer's  previous  job  experiences  and 
educational  background,  the  career  control  staff  examines 
alternatives  and  decides  where  the  officer  would  best  serve 
in  a  new  Job.  Again,  if  it  is  done  by  manual  methods, 
sometimes  information  is  incorrect  and  it  is  time  consuming 
to  correct.  Just  as  with  the  promotion  and  educational 
systems,  the  officer  data  are  kept  in  filing  cabinets. 
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III.  DATABASE  DEVELOPMENT  PROCESS 


A.  SYSTEMS  DEVELOPMENT 

The  software  engineering  fiald  la  intaraating  and 
challenging  bacauaa  it  raquiraa  tha  combination  of  both 
acianca  and  art.  Software  ia  an  intangibla  thing,  so  it 
ia  morp  difficult  to  measure,  avaluata  and  aatimate  than 
othar  enginaaring  producta. 

1.  Tha  Roles  of  Systems  Analyst 

Tha  Systama  Analyst  ia  known  by  varrious  names  such 
as  Systama  Engineer,  Systems  Designer,  or  Programmer 
Analyst.  Currently  System  Analysts  are  usually  located  in  or 
near  the  computer  functions  in  an  organization.  It  is  most 
common  to  find  them  in  a  project  development  department 
which  reports  to  the  director  of  the  information  system, 
although  Systems  Analysis  and  Design  are  sometimes 
decentralized  into  the  functional  areas  that  process 
information. 

A  Systems  Analyst  tries  to  trace  the  current  systems 
/manual  systems  and  uaes  various  means  of  Information 
gathering  techniques,  such  as  interviews,  questionaires, 
observation,  and  document  examination.  He  must  try  to  choose 
the  techniques  that  best  fit  the  situation  of  the  user 
organization.  He  also  must  evaluate  this  information 


in  order  to  recognize  the  problem  end  provide  alternative 
eolutione  (Figure  3.1). 


Techniques  < 


Figure  3. 1  Tasks  of  Systems  Analyst. 


2.  Software  Life  Cycle 

The  software  engineering  process  is  very  complex. 
If  software  engineering  is  not  provided  with  comprehensive 
and  integrated  tools,  techniques  and  disciplines  that 
support  all  activities  of  the  development  life  cycle, 
productivity  and  quality  can  not  be  expected  to  realize 
substantial  gains.  The  software  life  cycle  may  be 
fundamentally  partitioned  into  the  development  phase  and  the 
operations  and  maintenance  phase.  There  are  many 
interpretations  of  the  various  development  phases  of 
software,  but  the  important  thing  to  remember  is  that  the 
larger  the  project,  the  more  detailed  the  engineering  design 
phase  must  be.  One  methodology  for  software  life  cycle  is 


the 


Waterfall  model.  CRef.  21 


is 


illustrated 


in 


figure  3. 2.  The  original  version  was  presented  in  Royce 
1970  and  was  foreshadoved  in  various  U. S  Air  Force  an 


industry  publications  such  as  Air  Force,  1966 
Rosove, 1967. 


(Reprinted  from  CRef.  21) 
Figure  3.  2  Waterfall  model. 


an 


As  ammn  above,  each  phase  culminates  in  a 
verification  and  validation  activity.  By  verification  and 
validation  one  can  eliminate  as  many  problems  as  possible  in 
the  results  of  that  phase.  So  each  product  phase  is  the 
basis  for  the  next  product  phase, 
a*  System  Feasibility 

System  feasibility  must  consistently, 

comprehensively  and  accurately  represent  the  user 
requirements.  System  feasibility  is  determining  its  life 
cycle  feasibility  and  superiority  to  alternate  concepts. 
The  model  of  the  system  at  the  system  feasibility  level 
must  ~  support  analysis  and  validation  of  the  required 
operational  capability  as  veil  as  understanding  the  user  and 
the  developer. 

b.  Software  Plan  and  Raguirements 

This  phase  determines  the  required  functions, 
interfaces,  and  performance  for  the  software  product. 

Another  activity  is  supporting  the  analysis  of  all 

subsystems  from  the  system  viewpoint  such  as 
communications  and  peripheral  devices.  The  objective  of  this 
phase  is  to  provide  requirements  for  each  of  the 

subsystems.  This  involves  trade-off  studies  of  the  overall 
system  model  to  arrive  at  a  complementary  set  of 

requirements  for  each  subsystem  that  will,  when  integrated, 
collectively  provide  the  behavior  identified  in  the  software 
plan  and  requirements. 


c.  Product  Dfsign 


In  this  phass  vs  considsr  ths  primary 
deliverable  far  softvars  design.  Ths  dsslgn  spsclf ication  is 
a  documsnt  with  vsrifisd  spsclf ication  of  ths  ovsrall 
hardvars/sof tvars  architscturs,  control  structurs  and  data 
structurs  for  the  product.  Ths  dsslgn  spsclf Ication 
ssrvss  dual  rolss  by  providing  a  guids  to  software 
implementation  (coding)  and  testing,  and  assisting  the 
maintainer  after  software  has  been  released.  The 
specification  can  undergo  considerable  change  during  the 
software  life  cycle,  therefore  it  is  essential  to  review 
the  ^.design  documentation  at  each  step  in  the  development 
phase.  This  phase  can  also  provide  a  user  manual's  draft  and 
teat  plan  if  necessary. 

d.  Detailed  Design 

With  ths  use  of  a  design  representation  that  may 
be  graphical,  textual  or  tabular  a  detailed  procedural 
specification  for  the  software  is  created.  Like  a  blueprint, 
ths  detailed  dsslgn  specification  should  provide 
sufficient  information  for  someone  other  than  the  designer 
to  develop  the  resultant  source  code. 

e.  Coding 

The  final  objective  of  software  engineering 
is  to  translate  representations  of  software  into  a  form  that 
can  be  understood  by  the  computer.  In  this  phase  the 
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activity  is  a  process  that  transforms  a  design  into  a 
programming  language,  such  as  Pascal,  Codol,  Fortran,  or 
dBase  II 

f.  Integration 

After  each  program  component  is  tested 
individually,  the  next  step  is  integration  testing.  The 
program  components  are  put  together  and  the  application  is 
tested  in  its  entirety. 

9*  l!!!BlS!5£Q£Stign 

In  this  phase  the  software  product  is  fully 
operational  on  the  hardware  system. 

h.  Maintenance 

Maintenance  is  critical  in  the  database 
environment  because  changes  to  a  data  element  can  affect 
several  application  programs.  During  the  use  of  a  large 
program  errors  will  occur  which  must  be  corrected. 

There  are  many  activities  during  maintenance  such 

as : 


1. 

Correction 

errors. 

because 

of 

one  or 

more  coding 

2. 

Correction 

because 

of 

changing 

environment 

(new  generation  of  hardware  system,  new 
operating  system,  new  software  version  etc). 

3.  Correction  to  improve  the  software  even  though 
it  may  not  have  any  errors. 

B.  DATABASE  SYSTEM  CONCEPT 

Demands  on  data  processing  professionals  to  improve  the 
effectiveness  and  efficiency  of  their  organizations  have 


eiuMd  them  to  turn  to  database  technology.  Unfortunately 
many'  organizations  are  switching  to  a  database  approach  with 
little  or  no  understanding  of  the  concept. 

Database  systems  In  general  stress  controlled  data 
redundancy,  faster  processing  time,  higher  reliability, 
reduced  storage  requirements,  program  Independence  from 
changes  In  the  storage  structure,  control  of  data 
administration,  and  a  better  definition  of  data.  A  database 
system  Is  powerful,  but  to  achieve  these  goals  Is  not  a 
simple  matter. 

1 .  Data  as  a  Resource 

...  Data  has  no  value  If  It  cannot  be  processed  or 
retrieved  In  a  timely  and  accurate  manner.  With  the  growth 
of  computer  capability  In  terms  of  more  speed  and  memory,  we 
can  now  process  Information  rapidly  and  consistently. 

Using  file  system  applications,  data  Is  usually 
associated  with  a  single  functional  application  program, 
for  example  personnel  data  is  associated  with  a  personnel 
department  program,  logistics  data  is  with  a  logistic 
department  program,  and  payroll  with  a  accounting  department 
program.  Some  items  might  be  stored  in  more  than  one 
functional  area.  For  example,  name  and  rank  might  be  stored 
in  the  personnel  department,  accounting  department  and 
logistic  department.  Once  the  data  itself  is  modified  or 
changed,  all  the  functional  areas  must  change  that  data. 


inconsistent  data  that  increases  the  possibility  of  errors. 


When  using  a  database,  the  data  must  be  commonly 
defined  and  consistently  organized.  Data  mu3t  be  organized 
so  that  they  can  be  used  by  the  entire  system.  Any  update 
in  one  area  must  update  all  of  the  database  records  relating 
to  this  data  regardless  of  where  they  are  stored.  This 
approach  reduces  and  controls  duplicate  data  storage  and 
also  makes  integrated  processing  possible. 

2.  Database  Management  System 

Database  has  been  defined  in  many  ways  in  the 
literature.  Kroenke's  definition  [Ref.  3]  is  that  a 
database  is  a  collection  of  files  and  relationships  amcnq 
records  in  those  files.  Actually  a  database  is  more  than  a 
collection  of  files;  it  is  a  collection  of  integrated  files. 

A  database  management  system  (DBMS)  is  an  integrated 
software  package  that  allows  users  to  define  th  e  structure 
of  the  database,  access  the  database  and  administer  the 
database.  One  or  more  languages  is  provided  to  accomplish 
these  tasks. 

The  data  manipulation  language  (DML)  is  a  language 
used  to  access  the  data  in  he  database;  a  DML  is  used 
to  perform  insertions,  deletions,  changes,  and  retrievals. 
Also  DML  can  be  defined  as  an  extension  to  a  host 
programming  language,  such  as  COBOL,  FORTRAN  and  query 
language  (QL).  The  data  definition  language  (DDL)  is  used 


to  define  the  logical  structure  of  the  database  and  can  be 
used  to  specify  data  items  and  their  interrelationships. 

The  primary  advantage  of  using  a  DBMS  is  that  it 
provides  data  independence  which  means  the  database  user 
does  not  need  to  be  familiar  with  implementation  details. 
Changes  can  be  made  to  the  data  or  to  the  schema  with 
little  impact  on  application  programs  using  that  data. 

A  second  advantage  is  that  it  provides  an  integrated 
package  of  tools  for  handling  data  with  greater 
standardization  and  control. 

However,  a  general  purpose  DBMS  might  not  be  as 
efficient  for  a  specific  application  as  specialized 
software. 

3.  Database  Administration 

A  database  design  project  must  have  its  own 
centralized  administration.  The  systems  development  manager, 
therefore,  must  ensure  that  controls  for  the  systems 
development  project  are  not  neglected. 

Because  of  the  shared  nature  of  the  data  resource  in 
the  database  approach,  a  centralized  function  is  required  to 
manage  and  protect  it.  Access  to  this  data  must  be 
controlled.  No  function  can  be  allowed  to  modify  the  data 
without  the  permission  of  the  individual  who  is  responsible 
for  that.  The  Database  Administrator  is  responsible  to 


maintain  access  and  security  for  all  of  the  data. 
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Database  Administration  is  a  very  complex  job 
because  the  information  which  the  user  needs  is  varied  and 
wide-ranging.  Thus  the  Database  Administrator  must  deal  with 
providing  the  requested  information.  Issues  to  be  considered 
include : 

a.  Whether  different  functional  areas  need  to 
share  the  database. 

b.  Whether  all  levels  of  management  (upper, 
middle,  lower)  need  the  information  and  how 
to  structure  the  •  database  to  solve  this 
problem. 

c.  The  database  structure  which  must  be 
implemented  to  provide  information  in  an 
accurate,  relevant,  and  timely  manner.  The 
more  information  we  need,  the  more  data 
structure  must  be  designed. 

4.  Advantages  and  disadvantages  of  using  a  database 

File  systems  and  database  system  each  have  their  own 
advantages  and  disadvantages  CRef.  3:  pp.  3-73. 

a.  Advantage  of  Using  a  Database: . 

1.  Enables  more  information  to  be  produced  from 
a  given  amount  of  data. 

2.  Elimination  of  duplication  saves  file  space, 

and  to  some  extent,  can  reduce  processinq 
requirements.  The  most  serious  problem  of 
data  duplication  is  that  it  can  lead  to  a 
lack  of  data  integrity.  A  common  result  of  a 
lack  of  data  integrity  is  conflicting 

reports.  Perhaps  nothing  is  more 

aggravating  to  management  or  more 
embarrassing  to  the  data  processing  staff 
than  to  be  confronted  with  computer  reports 
that  disagree. 

3.  Creation  of  program  /  data  independence. 

Data  independence  means  that  when  the 
data  structure  changes,  application  programs 
keep  running  without  being  changed. 

4.  Better  data  management. 

When  data  are  centralized  in  a  database. 
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one  department  can  specialize  in  the 
maintenance  of  data.  That  department  can 
specify  data  standards  and  ensure  that  all 
data  adhere  to  the  standards.  When  someone 
has  a  data  requirement,  he  or  she  can 
contact  one  department  instead  of  many  file 
maintenance  groups. 

5.  Allows  query  language  with  easier 
programming  and  makes  it  easier  to  retrieve 
sophisticated  information  in  DBMS 

environment. 

b.  Disavantages  of  using  a  database 

1.  Using  a  database  can  be  expensive. 

The  DBMS  may  occupy  so  much  main 

memory  that  additional  memory  must  be 
purchased.  Conversion  from  existing  systems 
can  be  costly,  especially  if  new  data  must 
be  acquired.  Operating  costs  and  overhead 
for  some  systems  will  be  higher.  F'or 

example,  sequential  processing  of  payroll 
will  never  done  as  fast  in  the  database 
environment . 


« 


2.  Database  processing  tends  to  be  complex. 

Large  amounts  of  data  can  be 

interrelated  in  the  database.  This  means 
more  sophisticated  programming,  and  of 
course  highly  qualified  systems  and 

programming  personnel  are  required. 

3.  Backup  and  recovery  are  more  difficult. 
Because  of  increased  complexity  and  because 
databases  are  often  processed  by  several 
users  concurrently,  backup  and  recovery 
are  more  difficult. 


4. 


Security  more  difficult. 
Integration,  and  hence 
increase  vulnerability 
problems  because  all  data 
under  one  system. 


central ization. 
to  security 
are  centralized 


C.  DATABASE  DESIGN 

A  database  contains  a  diversity  of  related  data  so  that 
typically  the  equivalent  several  files  are  used  to  hoJd  the 
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data 


Other 


files  may  be  needed  to  hold  descriptive 


information  about  the  data  and  their  relationships. 

The  analysis  of  databases  concentrates  on  logical 
structures.  The  result  of  this  analysis  is  a  precise 
specification  of  the  contents  and  required  manipulations  for 

the  database. 

An  integrated  collection  of  support  programs  and  file 
structures  to  support  a  database,  its  logical  requirements, 
and  an  interface  to  user  program  is  called  a  database 
management  system.  For  that  reason  alone,  the  design  of  a 
database  will  be  the  most  important  component  affecting  how 
vell^a  system  will  work. 

The  design  of  a  database  describes  how  the  data  in 
the  system  is  divided  into  the  different  files  or  records. 

Database  design  basically  has  three  steps: 

Decide  what  data  should  be  stored. 

For  the  logical  database  design,  identifying  data 
entities,  attributes,  and  relationships. 

For  the  physical  database,  it  means  physical  storage 
of  data  on  storage  devices  and  the  resultant 
performance  of  the  database  design. 

What  Data  Should  be  Stored 

If  the  system  is  at  all  complex, the  designer  needs 
to  consider  what  kind  of  data  should  be  stored.  First  he 
must  look  at  the  output  or  proposed  output.  Before  the 
required  output  can  be  displayed  on  a  screen  or  printed  on  a 
report,  the  data  must  be  in  the  database  somewhere.  For 
example,  if  the  system  must  print  personnel  addresses,  it 
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will  need  the  name,  street,  city,  zip  code  and  so  on.  Or,  if 
the  system  needs  to  know  how  old  personnel  were  when  they 
retired,  the  designer  must  store  data  from  which  age  may  be 
calculated  (for  example,  birth  date  and  the  retirement 
year ) . 

Host  of  the  data  entered  will  appear  Immediately 
on  the  output  reports,  but  not  always.  The  user  may  decide 
that  a  piece  of  data  is  not  being  used  now,  but  might  be 
needed  in  the  future.  The  solution  in  such  a  case  should  be 
to  enter  it  now.  This  may  cause  a  little  more  data  entry, 
but  it  is  easier  to  have  data  entered  as  it  is  captured, 
rather  than  later  when  it  may  not  be  available. 

2.  Logical  Database  Design 

A  database  contains  many  types  of  data  items.  These 
data  items  have  to  be  associated  into  a  database  structure. 
A  systems  analyst  tends  to  group  together  in  records 
collections  of  data  items  which  data  processing  views  as 
being  useful.  The  logical  database  structure  is  the 
foundation  on  which  most  future  data  processing  will  be 
built.  Future  organizations  will  be  managed  with  database 
resources,  networks  to  access  the  databases,  and  end-user 
software  for  employing  and  updating  the  data. 

The  logical  design  begins  with  an  investigation 
of  user  requirements  and  ends  with  a  logical  description  of 
a  database  that  can  support  those  requirements.  Logical 


description  such  as  data  models  present  logical  views  of 
real  entities  and  their  relationships.  An  entity  may  be 
a  tangible  object  such  as  a  person.  It  may  be  intangible 
such  as  a  job  title.  Entities  have  properties,  called 
attributes,  which  associate  a  particular  value  from  a 
domain  of  attribute  values  with  each  entity.  Examples 
of  attributes  are  color  or  name.  Usually  the  domain  for  an 
attribute  will  be  a  set  of  integers,  real  numbers,  or 
strings.  An  entity  usually  has  a  data  item  that  uniquely 
identifies  it. 

For  example,  employee  number  is  the  unique 
identifier  of  the  employee  entity.  Figure  3.  3  is  a  sample  of 
entities  and  attributes.  Shawn  below  the  serial  number  is  a 
unique  key.  Entity  sets  can  be  represented  by  a  labeled 
box,  see  figure  3. 4.  Data  models  describes  entity  sets, 
entities,  attributes  and  their  relationships.  Relationships 
among  them  are  addressed  by  the  relational  model.  Examples 
are  relationships  between  college,  departments,  professors, 
and  courses. 

Attributes 

Serial  #  Name  Address 

001234  David  Ocean  Ave 

Entities  002134  Hike  Seventh  St 

006789  Fred  Third  Ave 

A 

I 

Entity  # 

Figure  3. 3  Entity  set  example. 


Department 


Figure  3. 4  Entity  set  diagram. 

College,  department,  professor  .  and  courses  are 
identified  as  entity  sets.  Figure  3. S  shows  the 
relationships  between  these  entity  sets.  The  relationship 
between  college  and  its  departments  is  called  one-to-many, 
in  .-.that  any  one  college  may  have  many  departments 
(Administrative,  Computer,  ORSA).  The  same  relationship 
exists  between  departments  and  their  courses. 

Many-to-many  is  the  relation  between  Professors 
and  Courses:  One  professor  can  teach  many  courses,  and  one 
course  can  be  taught  by  many  professors. 


Col lege 


•>> 


Professor 


I 


i  \ 

>  f 


Department 


•  >> 


Course 


Figure  3. 5  Relationship  diagram. 
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3.  EhZHiSli  Database  Design 


The  result  of  the  physical  database  design  is 
specification  of  the  storage  allocation  parameters.  Setting 
up  the  database  on  a  real  computer  is  called  physical 
database  design.  In  other  words,  the  physical  database 
is  the  component  of  the  database  that  confirms  the 
computerized  version  of  the  logical  database. 

The  physical  database  consists  of  five  components 
[Ref.  4:  pp.  30-333:  storage  structure,  access  strategy, 
data  loading,  data  update,  and  data  maintenance. 

Knowledge  of  the  storage  structure  is  important 
because  it  indicates  the  power  of  the  DBMS  for  certain 
applications.  The  storage  structure  is  the  physical 
architecture  construction.  Its  consists  of  dictionary, 
indexes,  relationships,  data.  The  dictionary  is  the 
repository  of  the  information  represented  by  the  compiled 
data  definition  language.  Each  DBMS's  dictionary  is  unique. 

For  faster  access,  index  mechanisms  are  needed. 
There  are  two  kinds  of  indexes,  primary  and  secondary.  The 
primary  indexes  are  unique  value  guaranteed  and  the 
secondary  indexes  are  repeated  values  allowed. 

The  connections  between  record  occurrences  are 
called  relationships.  There  are  two  kinds  of  relationships, 
static  and  dynamic. 

The  data  part  of  he  storage  structure  contains  the 
occurrences  of  the  records.  Static  DBMS  have  multiple  record 


type  data  storage  structures.  Dynamic  DBMS  have  a  separate 
data  storage  structure  for  each  record  type. 

An  access  strategy  is  a  collection  of  routines  that 
insert  data  into  and  retrieve  data  from  the  database. 
Understanding  access  strategy  is  basic  to  knowing  why 
certain  operations  take  longer  than  others. 

Data  loading  is  the  process  of  inserting  large 
quantities  of  data  into  the  database  at  one  time.  Some  DBMS 
allow  or  require  data  to  be  loaded  in  certain  ways  to 
achieve  efficiencies  during  subsequent  updating  and 
reporting. 

The  updating  process  attempts  to  ensures  current 
data.  Critical  in  the  updating  application  is  how  well  the 
DBMS  handles  additions  of  new  records,  modification  of 
element  values,  modifications  of  relationship  occurrences 
and  deletions  of  existing  records. 

The  most  important  requirement  for  database 
maintenance  is  the  creation  of  a  backup  copy  of  a  database. 
While  creating  a  backup  i3  certainly  the  first  step  in 
backup-and-recovery,  the  nature  of  the  backup  process  needs 
to  be  understood  so  that  sufficient  resources  can  be 
allocated  to  its  accomplishment. 

D.  RELATIONAL  DATABASE  DESIGN 

In  a  filing  system,  each  functional  area  has  it  own 
files  and  procedures.  Because  of  this  there  is  a  complex 
flow  of  paperwork  between  the  functional  areas.  In  this 


case  data  for  different  areas  are  separately  maintained 
in  separate  files.  It  is  hard  to  manage  this  data.  Accuracy 
is  lost,  and  maintenance  and  change  are  difficult  to 
accomplish. 

But  when  data  are  designed  into  an  integrated 
database  system,  the  data  structures  become  more  complex 
but  the  data  flows  are  simplified.  The  data  are  consistent 
and  accurate. 

Changes  in  procedures  can  be  made  rapidly. 
Fundamentally  different  analysis  and  design  techniques 
are  needed. 

1.  Relational  normal  forms 

When  modification  of  data  has  unexpected 
consequences,  it  is  refered  to  as  a  modification  anomaly. 
A  deletion  anomaly  exists  if  the  deletion  of  one  entity 
deletes  facts  about  a  second  entity.  An  insertion  anomaly 
exists  if  an  insertion  of  a  fact  about  one  entity  cannot 
be  made  until  a  fact  about  a  second  entity  is  known. 
Anomalies  can  be  removed  or  eliminated  through 
normalization,  but  this  normalization  process  can  create  an 
interrelation  constraint. 

2.  Normal  Forms 

All  relations  are  by  definition  in  first  normal 
form.  When  there  are  no  repeating  groups  the  relation  is  in 
first  normal  form.  See  figure  3. 6 


A  relation  is  in  second  normal  form  if  all  nonkey 
attributes  are  dependent  upon  all  of  the  key  attributes. 
No  attribute  is  dependent  upon  only  part  of  the  key.  The 

second  normal  form  is  illustrated  in  Figure  3. 7. 

UNNORMAUZED  RECORD: 

Order 


ORDER# 


ORDER- 

DATE 


CUSTOMER* 


Custom  e  r-  !  customs  r- 

NaME  I  ADDRESS 


1 

PRODUCT- 1  PRODUCT - 
NU-V3ER  |  NAME 

- 1 - 1 - ! - 

QUANTITY.  !  PRODUCT-  l  P®CDuCT-  1  ORDER- 
ORCERED  |  PRICE  I  TOTAL  j TOTAL 

■  - - 1  1 

l 

FIRST  FORMAL  FORM:  Remove  me  reoeetmg  grouo. 


Figure  3. 6  From  unnormalized  to  first  normal  form. 

When  relations  are  in  second  normal  form,  they  may 
have  transitive  dependencies.  These  dependencies  are  removed 
by  placing  the  relation  in  third  normal  form. 

A  relation  is  in  third  normal  form  if  it  is  in 
second  normal  form  and  has  no  transitive  dependencies. 
All  attributes  must  depend  upon  all  of  the  key,  and 
dependencies  are  not  transferred  from  one  attribute  to 
another.  Third  normal  form  is  illustrated  in  figure  3. 8. 
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SECONO  NORMAL  FORM  R«*»o»#  jii» >Ouim  «oi  oro*«acni  o«  <*"«•*  o*  *  iconcit*n*i*oi 
primely  kty  n  in  1**t  GRCE  R  PRODUCT  'fCO'O  40av« 


(Reprinted  from  [Ref.  5:  p.  181]) 

Figure  3. 7  Second  Normal  Form. 

THIRD  NORMAL  FORM-  Ramov#  attriDutet  eeoenaem  on  a  ata  itemlsl  otner  man  tr t  orimary  key. 
a*  m  tna  0  R  0  E  R  rccora  aoov*. 


OrO*r 


ORDER 

ORDER 

CUSTOMER 

ORDER 

NUMBER 
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total 

(Reprinted  from  CRef.  5:  p.  181]) 


Figure  3. 8  Third  Normal  Form 


3.  Relational  Database  Design  Criteria 

The  first  design  criterion  is  elimination  of 
modification  anomalies.  If  relations  cannot  be  put  into 
normal  form,  then  modification  anomalies  do  not  happen. 
Relations  that  are  in  normal  form  are  prefered,  and 
normal  for  that  is  become  is  a  design  objective. 

Relation  independence  is  the  second  design 
criterion.  Two  relations  are  independent  if  a  modification 
can  be  made  to  one  relation  without  affecting  the  other 
relation.  Relation  dependence  is  sometimes  caused  by 
normalization  to  remove  modification  anomalies.  This  effect 
causes  a  conflict  in  design  criteria. 

The  third  criterion  is  ease  of  use.  The  design 
should  structure  relations  so  that  they  are  familiar  and 
natural  to  the  users. 
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IV.  DATABASE  IMPLEMENTATION 


A.  INTRODUCTION 

The  main  purpose  of  this  chapter  is  to  design  a  database 
system  which  may  be  used  by  the  Indonesian  Navy  Deputy  of 
Personnel  to  make  more  effective  decisions. 

Personnel  management  was  previously  defined  as  those 
managerial  activities  that  deal  with  procurement, 
development,  maintenance,  utilization  and  separation.  This 
is  also  known  as  the  personnel  management  cycle.  For 
supporting  these  activities,  data  must  be  accurate  and 
timely.  All  of  the  personnel  activities  are  controlled 
by  the  Deputy  of  Personnel.  These  include  education, 
training,  promotion,  and  job  evaluation. 

The  computer  can  help  support  the  Deputy  of  Personnel 
with  various  decision  making  processes  because  of  its 
speed  and  accuracy  in  processing  large  amounts  of  data. 

An  organization  can  more  easily  decentralize  its 
operations  when  it  uses  interactive  processing.  This  adds 
a  new  dimension  to  the  Personnel  Management  Information 
System  by  allowing  easy  editing  and  filing  of  existing  and 
new  data. 

After  careful  analysis,  it  was  decided  that  the 
functional  requirement  described  in  Chapter  II  suggested  the 
application  of  a  relational  database.  This  justification  was 
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based  not  only  upon  various  possible  record  relationships, 
but  also  '  the  frequency  and  volume  of  the  expected 
transactions.  Promotions  occur  regularly  twice  a  year. 
Officers  are  selected  for  promotion  based  on  requirements 
because  of  job  vacancies  particularly  for  the  colonel  and 
flag  officer.  For  this  purpose  the  system  should  be  designed 

with  a  query  capability. 

> 

For  example  the  amount  of  officer  records  is  around 
8000,  with  five  to  seven  percent  eligible  for  promotion, 
and  because  of  limited  vacancies  only  two  or  three  percent 
actually  are  promoted  accepted. 

The  same  thing  occurs  in  educational  and  job  placement. 
Comparing  the  officers'  chances  for  various  schools.  the 
most  significant  hurdle  is  from  Second  Officer  Educational 
level  to  Command  and  Staff  College  Level.  This  happens  once 
a  fiscal  year  and  is  usually  followed  by  job  placement. 
This  kind  of  job  placement  is  predictable,  so  it  can  be 
prepared  as  the  officer  nears  the  end  or  finishes  a  course. 
But  managers  still  need  some  queries  to  handle  this 
problem,  because  there  are  many  irregular  job  placements 
because  of  job  requirements  from  outside  the  Navy 
organization,  for  example  D  0  D.  The  system  should  be  able 
to  provide  relevant  information  immediately  to  support  fast 
decision  making  by  the  Director  of  Personnel  or  Staff  to 
fill  those  job  vacancies. 


The  above  is  based  on  career  applications  only.  Besides 
this,  there  are  other  applications  such  as  rewards  and 
pension.  Again,  the  system  should  eventually  be  able  to 


handle  all  personnel  officer  activities. 

B.  RELATIONAL  DATABASE  DESIGN  AND  APPLICATION 

There  are  many  ways  in  which  a  database  can  be  designed. 
This  design  will  describe  a  design  theory  and  application 
for  the  Indonesian  Naval  Officer  Personnel  System, 
particularly  the  career  system,  where  education,  rank 
and  Job  evaluation  are  involved. 

The  most  important  phase  in  the  design  of  a  database 
is  in  the  relational  database  design,  where  the  record 
relationship  and  record  structure  will  be  developed. 

1*  Record-Relationship 

Relationships  can  be  specified  in  a  variety  oi 
ways.  One  technique  is  called  a  Bachman  diagram  or 
structure  diagram.  See  figure  4. 1. 


Intersection  Intersection 


Figure  4. 1  Bachman  diagram 


The  above  diagram  shows  the  relationships  among 
records.  The  single  and  double  arrow  notation  is  used  to 
express  relationships  among  records.  There  are  four 
different  relationships,  one-to-one,  one-to-many, 

many-to-one,  and  many-to-many  relationships. 

Examples  as  follows: 

a.  One-to-one. 

An  officer  can  only  have  one  set  of  body 
character ist ics  and  vice  versa. 

OFFICER  < - >  BODYCHAR. 

b.  One-to-many. 

One  officer  may  have  attended  several  military 
schools. 

OFFICER  < - >>  MILEDU. 

c.  Many-to-one. 

Many  differents  jobs  in  job  records  history  will 
have  been  performed  by  one  officer. 

JOBOFF  << - >  OFFICER. 

d.  Many-to-many. 

An  officer  can  be  eligible  for  many  jobs  or  vie? 
versa. 

OFFICER  <<-- - >>  JOBLIST. 

2.  Record  Structure 

Record  structure  shows  the  relationships  among 
attributes,  where  the  key  attribute  is  underlined  and 
uniquely  identifies  each  record.  For  many-to-many 
relationships  between  records,  another  record  is  needed, 
called  an  intersection  record.  This  record  is  device  for 
integrating  two  or  more  files  and  the  keys  of  the  files 
being  integrated  must  appear  in  the  intersection  record. 
Examples  of  record  structure  as  follows: 


1 


Personal  Identification 

OFFICER  <  SERNO,  NAME,  CORPS,  RANKID,  EDUID,  SEX, 
BIRTHDD,  BIRTHMM,  BIRTHYY,  BIRTHP,  RELIGION) 

2.  Body  characteristic 

BODYCHAR  < SERNO,  WEIGHT,  HEIGHT,  SKCOLOR,  HRTYPE, 
EYCOLOR,  Bl565,  SHOE,  HAT,  UNIFORM) 

3.  Rank  (intersection) 

RANK  (SERNO,  RANKID,  RANKDD,  RANKMM,  RANKYY, 
RORNO,  RDATORNO  > 

4.  Military  education  (intersection) 

MILEDU  (SERNO,  MEDUIRANK,  MEDLEY ID,  MEDUID, 
MDDEDST, _MMMEDST,  MYYEDST,  MDDEdEd,  MMMEDED, 

Myyeded,  MEDUDUR,  MEDURSLT) 

5.  General  education  (intersection) 

CIVEDU  ( SERNO, CEDURANK, CEDLEV ID,  CEDUID 
CDDEDST,  CMMEDST,  CYYEDST,  CDDEDED,  CMMEDED, 

CYYEDED,  CEDUDUR,  CEDURSLT ) 

6.  Occupation  (intersection) 

JOBOFF  (SERNO,  JOBID,  JOBRANK,  JOBDD,  JOBMM, 
JOBYY,  JoliCH,  JORNO,  JDATORNO) 

7.  Occupation  list 

JOBLIST  (JOBID,  JQBDES,  ECHELON,  JOBSTAT ) 

B.  Rank  requirement  for  occupation  (intersection). 
JOBRNK  (JOBID,  JOBRK) 

9.  Corps  requirement  for  occupation  (intersection). 
JOBCORP  ( JOBID, JQBCO) 


10.  Military  education  requirement  for  occupation 
(intersection).  JQBEDU  (JOBID,  JOBED ) 

11.  Military  education  list 
MEDULIST  (  MEDUID,  MEDUDES) 


12.  General  education  list 
CEDULIST  <  CEDUID,  CEDUDES) 

13.  Rank  list 

RANKLIST  (RANKID,  RANKDES,  RKECHREQ ) 

C.  INTERRELATIONAL  CONSTRAINTS 

As  Kroenke  says  [Ref.  3:  pp.  286,  305 J,  not  all 


relational  database  designs  are 


equal,  some  are  better 


than  others.  The  important  point  is,  a  design  that  meets 

the  user's  needs  is  better  than  cine  that  does  not. 

When  a  relation  is  normalized,  this  often  may 

eliminate  modification  anomalies  at  the  expense  of  creating 

interrelational  constraints.  The  elimination  of  anomalies 

may,  however  have  a  disadvantage  as  well.  Everytime  a 

record  is  split  into  two  or  more  relations  an 

interrelational  constraint  is  created.  The  initial  job 

relation  had  modification  anomalies  because  it  was  not  in 

2nd  normal  form.  We  eliminated  these  anomalies  by  splitting 

the  relation  into  the  "JOBOFF*  and  "JOBLIST"  relations. 

The  interrelation  constraints  occur,  because  two 
—  • 

relations  share  the  attribute  "JOBID*.  However  a  "JOBID"  may 
not  exist  in  "JOBOFF"  if  it  is  not  in  "JOBLIST". 

We  can  say  that  the  values  of  "JOBID"  in  "JOBOFF"  must 
be  a  subset  of  the  values  on  "JOBID”  in  "JOBLIST".  See 
figure  4. 2. 


Figure  4.  2  Example  of  JOB  relational. 

D.  THE  DESIGN  APPROACH 

The  design  of  this  system  was  approached  by  considering 


the  output  required  and  anticipating  the  questions  and 


queries  that  management  might  ask.  Output  would  be  provided 
in  both  screen  and  printed  form. 

The  following  are  examples  of  some  queries  and  output 


form: 

1.  Query  rank. 

a.  Gives  the  information  about  all  of  officers 
in  a  certain  rank,  screen  or  printer. 

b.  List  an  officer's  promotion  history  by  entering 
his  serial  number,  screen  or  printer. 

2.  Query  education. 

a.  Gives  the  information  about  all  officers  who 
have  a  military  education  level  (e. g.  Command 
and  Staff  College  level),  screen  or  printer. 

_  b.  Gives  the  information  about  all  o  fficer  who 
have  a  specified  military  education  (e. g.  Navy 
Command  and  Staff  College),  screen  or  printer. 

3.  Query  job. 

a.  List  all  officers  eligible  for  a  certain 

job,  screen  or  printer. 

b.  List  all  jobs  which  an  officer  may  be  eligible 
for,  screen  or  printer. 

4.  Print  personnel. 

a.  Gives  all  information  about  all  of  the  officers 
list  by  by  name  (screen  or  printer). 

b.  Gives  all  information  about  all  of  the  officers 
listed  by  serial  number  (screen  or  printer). 

Based  upon  the  estimated  outputs,  the  next  step  was  to 


define 

what 

kind 

of 

data 

outputs 

and 

what 

kind 

of 

included 

into 

the 

dBase 

II 

was  required  to  support  these 
record  structure  should  be 
database.  (See  data  dictionary 


Appendix  B.) 


E.  SYSTEM  CONSTRAINTS 


The  system  has  certain  hardware  and  software 
constraints.  These  constraints  are  : 

1.  This  system  must  use  DOS  operating  system  version 
2. 0  or  higher. 

2.  This  system  uses  dBase  II  database  management 
program. 

3.  This  system  runs  on  IBM  PC  or  compatible  only. 

4.  The  widths  of  the  output  are  less  than  BO  columns. 

5.  In  order  to  make  additions,  changes  and  deletions, 
the  users  must  be  familiar  with  the  design  of  the 
system  and  know  about  this  data  structure. 

F.  SYSTEM  EXPANDABILITY 

By  the  design  of  its  data  structure,  this  system  can  be 
expanded.  Some  of  the  possible  expansions  are: 

1.  The  system  can  be  expanded  by  creating  and  adding 
data  files  such  as: 

a.  Personal  identification  data  structure  (birth 
date,  birth  place). 

b.  Personal  characteristics  (weight,  height,  hair 
color,  eye  color,  etc). 

c.  Family  data  (spouse,  children,  address,  sex, 
birth  date,  and  birth  place). 

d.  Payroll  (main  salary,  wife  allowance,  children 
allowance,  and  deductions  ). 

e.  Uniform  sizes  and  other  possible  personal  data. 

2.  By  adding  the  above  to  the  data  structure,  the 
output  can  be  easily  expanded  to  include: 

a.  Output  reports  for  payroll. 

b.  Output  reports  for  personal  characteristics. 


c.  Output  reports  for  occupation. 

d.  Output  reports  for  families,  etc. 

3.  Updating  modules  for  the  addition  of  data  files  as 
described  above. 

G.  HIERARCHY  CHART  OF  THE  SYSTEM 

The  diagram  belov  (figure  4.3)  is  the  hierarchy  chart  of 
the  system,  where  each  block/module  has  a  specific  function, 
such  as  adding  or  updating  a  record.  Each  module  has 
submodules  with  similar  functions  but  different  tasks,  such 
as  officer  record  addition,  job  record  addition,  etc. 


Figure  4. 3  Hierarchy  chart  of  the  system 


H.  IMPLEMENTATION 


As  mentioned  before,  the  design  of  this  system  was 
approached  by  considering  and  anticipating  the  questions 
and  queries  that  management  might  ask.  The  following  are 
examples  of  queries  relating  to  educational  and  job 
information. 

1.  Educational  Information 

i 

After  successfully  "booting*  the  system  and  reaching 
the  main  menu  by  following  the  instructions  in  the  user 
manual  (Appendix  A),  the  user  can  choose  one  of  the  main 
menu  selections  (  igure  4.4). 


OFFICER  MAIN-MENU  MAY  1986 

BBaaBBaBBBBaBaBBBBBaBaaaaBBBBBaBBBBBBsaBaaaaBaaBBBBBsaaBsa 

A  - >  ADD  RECORD 

D  - >  DELETE  RECORD 

C  --->  CHANGE  RECORD 
P - >  PRINT 

Q  — >  QUERY  INFORMATION 

R  - >  RETURN  TO  DATABASE 

S  --->  RETURN  TO  DOS 


SELECT  AN  ACTION  BY  LETTER  ■»■«>  :  : 

Figure  4. 4  Main  menu  selections. 


Selecting  the  <Q>  option  from  the  menu  result  in  a 


query  menu  selection  (see  Figure  4.S)  and  again  the  user 
chooses  one  of  them.  For  selecting  <A>  will  provide  the 
military  education  level  for  an  officer.  The  next  screen 
show  the  list  of  military  education  level  and  the 
corresponding  code  (see  Figure  4.6). 


QUERY 


MENU 


HAY  1986 


QUERY  OPTIONS 


A 

B 

C 

D 

E 

F 


- >  PROVIDE  MIL.  EDUCATION  LEVEL  INFORMATION 

--->  PROVIDE  ANY  MIL.  EDUCATION  INFORMATION 
--->  PROVIDE  RANK  HISTORY  INFORMATION 

- >  PROVIDE  JOB  HISTORY  INFORMATION 

- >  PROVIDE  JOB  ELIGIBLE  INFORMATION 

- >  PROVIDE  OFFICER  ELIGIBLE  INFORMATION 

TYPE  RETURN  KEY,  RETURN  TO  MENU 


SELECT  AN  ACTION  BY  LETTER  »■«««>  :  : 


Figure  4.5  Query  Menu  Selection. 


QUERY 


MILITARY  EDUCATION  LEVEL 


MAY  1986 


MIL.  EDUCATION  #  DESCRIPTION 

11  NATIONAL  DEFENSE 

12  JOINT  COMMAND  &  STAFF  COLLEGE 

13  COMMAND  AND  STAFF  COLLEGE 

14  STAFF  COLLEGE 

15  2nd  OFF.  CONTINUING  EDUCATION 

16  1st  OFF.  CONTINUING  EDUCATION 

17  NAVAL  ACADEMY 

18  BASIC  OFFICER  SCHOOL 

19  CANDIDATE  OFFICER  SCHOOL 

PLEASE  SELECT  ONE  DESIRED  MIL.  EDUCATION  NUMBER,  ACCORDING  TO 
THE  ABOVE  LIST  <2  DIGITS  PLEASE)  e. g.  •IS*  AND  HIT  "RETURN-  KEY. 


TO  FINISH  (RETURN  TO  QUERY  MENU  OPTION)  HIT  'RETURN" 
ENTER  MIL.  EDUCATION  NUMBER  (2  DIGITS):  : 


Figure  4.6  Example  of  Kenu  for  Military  Education  Level. 


By  typing  <13>  in  response  to  the  menu  in  Figure  4. 6 
(code  for  Command  and  Staff  College  level),  a  list  of 
officers  currently  attending  the  Command  and  Staff  College 


including  serial  number,  name,  corps  and  the  year  end's 
attended  (see  Figure  4.7)  will  be  displayed.  Before  the  list 
appears  on  the  srceen,  the  system  asks  if  the  user  wants 
the  display  on  the  screen  or  in  hardcopy  form. 


* o * o */ .  •  • : 


EQUIVALENT  WITH  THE  LEVEL  OF 
2nd  OFF.  CONTINUING  EDUCATION 


NAME 


RANK 


SCHOOL 


YEAR-END 


33SSSSSSS 

53313383339: 

S333333SS 

33=333333233333= 

3  3  3  =  3 

BUDIYONO 

LIEUTENANT 

COLONEL 

2nd  OFF. 

CONTINUING  EDU. 

1983 

MARTIN 

LIEUTENANT 

COLONEL 

A. G  ADVANCE 

1983 

SUWITO 

LIEUTENANT 

COLONEL 

INFANTRY 

ADVANCE 

1983 

SULIS 

MAJOR 

INFANTRY 

ADVANCE 

1983 

Figure  4. 7  Example  of  Officers  Attending  Military  Edu.  Level 
2.  Job_Inf grmation 

The  procedure  to  retrieve  educational  information  is 
similar.  The  Job  information  system  tries  to  match  the 
desires  of  an  officer  concerning  eligible  jobs  placement 
and  conversely  a  certain  job  for  which  many  officers 
are  eligible.  In  this  prototype  system  a  simple  example  is 
given  to  show  a  personnel  officer  trying  to  match  an  officer 
with  a  job  description. 

Each  Job  needs  eligible  officers  to  fill  it.  In  a 
simple  case  the  basic  prerequisites  for  Job  placement 
are  ran*,  education  and  corps.  Secondary  considerations 
inc.ude  other  adjustment  and  past  performance. 

Given  a  Job  description  and  prerequisites,  this 
prototype  can  help  the  user  to  match  a  certain  job  with  the 
officers  eligible  by  reason  of  rank,  education,  and  corps 
consideration.  Exact  Job  descriptions  and  eligibility 
requirements  are  beyond  the  scope  of  this  thesis.  We  are 
only  suggesting  how  this  system  might  expedite  the  job 


placement  matching  process. 


After  initial  screening  it  is  a  simple  matter  for 


the  system  to  output  an  officer's  promotion  history  and  job 


history  to  make  complete  information  available.  An  example 


follows : 


Start  with  the  main  menu  and  respond  with  the 


appropriate  query  selection;  then  choose  or  type  <E>  for 


jobs  eligible  for  an  officer  (see  Figure  4.8).  By  giving  the 


input  officer's  serial  number,  the  screen  will  appear  with 


two  selections:  job  available  for  the  same  rank,  or  after 


promotion  (see  Figure  4.9).  After  typing  <a>  the  system 


responds  by  asking  if  the  user  needs  the  list  on  the 


screen  or  hardcopy.  By  typing  <h>  the  computer  gives  all 


information  on  job  placement  after  promotion  correlated  by 


rank,  education,  and  corps  (see  Figure  4.10). 


QUERY 


MENU 


MAY  1986 


QUERY  OPTIONS 


- >  PROVIDE  MIL.  EDUCATION  LEVEL  INFORMATION 


- >  PROVIDE  ANY  MIL.  EDUCATION  INFORMATION 


- >  PROVIDE  RANK  HISTORY  INFORMATION 


■-->  PROVIDE  JOB  HISTORY  INFORMATION 


- >  PROVIDE  JOB  ELIGIBLE  INFORMATION 


--->  PROVIDE  OFFICER  ELIGIBLE  INFORMATION 


TYPE  RETURN  KEY,  RETURN  TO  MENU 


SELECT  AN  ACTION  BY  LETTER  =====>  : 


Figure  4. 8  Menu  for  Job  Selection. 


JOB  AVAILABLE  FOR  THE  SAME  RANK  or  AFTER  PROMOTION  ? 


ENTER  FOR  SAME  RANK  or  'p'  PROMOTION 

Figure  4. 9  The  option  for  same  rank  or  after  promotion. 


JOB  ELIGIBLE  FOR  : 

003333  SUWITO  LIEUTENANT  COLONEL 

JOB-ID  DESCRIPTION  STATION 


MARINES 

CITY 


003  ASS.  LOGISTIC 

00B  ASS.  PERSONNEL 

012  INSTRUCTOR 


MARINE  H. Q  JAKARTA 

D  0  D  JAKARTA 

NAVAL  ACADEMY  SURABAYA 


Figure  4. 10  Example  of  jobs  placement  for  an  officer. 

Conversely,  given  a  job-id,  the  system  will  respond 
with  all  eligible  officers  with  the  same  consideration  given 
to  education,  rank  and  carps. 

3.  Special_ Job_Discussign 

The  system  described  above  is  just  a  prototype,  and 
further  special  work  is  needed.  Job  placement  is  a  critical 
task  because  many  factors  must  be  considered,  such  as 
education,  rank  and  corps. 

If  possible,  the  needs  of  the  organization  should 
be  synchronized  with  the  individual's  needs  and  desires,  in 
order  to  make  the  officers  more  satisfied  with  their  jobs/ 
tasks. 

There  is  a  further  requirement  for  definitions 
of  job  descriptions  and  eligibility  requirements.  This  is 


not  an  easy  task  because  there  are  hundreds  of  jobs  which 
must  be  carefully  analyzed.  More  research  is  needed 
to  accomplish  this  task  before  the  system  can  be  expanded. 

Because  of  the  very  complex  consideration 
involved  in  personnel  management,  this  system  remains  just 
a  tool  to  get  more  reliable,  up  to  date  and  timely 
information  to  the  user. 


V.  CQNCLySION_AND_RECQMMENDATIQN 

The  Naval  Officers  Personnel  System  is  very  complex. 

Managing  it  manually  demands  great  effort,  is  time 
consuming,  requires  a  large  staff  to  manage  the  personnel 
function,  and  is  neither  effective  nor  efficient  in 
supporting  decision  making  processes.  Database  processing 
can  increase  decision  making  productivity  and  provide 
relevant,  accurate,  and  timely  information. 

This  thesis  has  focused  on  a  proposed  Personnel 
Database  System  for  Indonesian  Naval  Officers.  However  this 
system  can  be  used  for  other  personnel  applications  with  a 
little  modification.  The  developed  sample  database  presented 
here  is  based  on  relational  normal  form.  Normal  forms 
can  be  applied  to  decrease  inefficiency  of  the  relational 
database  model  in  the  system  design  process,  and  also  to 
decrease  data  redundancy. 

A  sample  implementation  using  dBase  II  is  provided 
in  Appendix  A,  showing  user  interaction  with  the  computer 
.  without  necessarily  knowing  programming  or  database  system 
management. 

With  the  latest  microcomputer  performance  and 
capabilities  in  networking,  this  system  could  be  put  on 
staff  personnel  desks  and  connected  to  each  other  in  one 
headquarters  building  via  a  distributed  network  system, 
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without  requiring  more  space  or  restructuring  office 


|  setting. 

|  A  complete  implementation  of  the  system  needs  more  data 

i 

about  job  descriptions  and  prerequisites  regarding 
education,  rank,  corps,  sex  and  other  considerations. 
Finally  the  system  must  evolve  through  continued  use  and 
feedback  from  personnel  management  users. 


i 

i 

i 
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APPENDIX  A 


USER  MANUAL 

1.  PURPOSE 

The  purpose  of  this  manual  is  to  describe  how  to  run  the 
system. 

2.  OBJECTIVES 

This  system  was  designed  to  be  user  friendly,  expandable 
and  maintainable. 

3.  CONFIGURATION  OF  THE  SYSTEM 

To  run  this  system  the  following  is  necessary  : 

a.  IBM  PC  or  compatible. 

c.  IBM  printer  or  compatible. 

d.  2  disk  drives 

e.  dBASE  II  diskette. 

f.  dBASE  II  Project  diskette. 

4.  RECORD  STRUCTURE. 

There  are  nine  record  types  and  fifteen  table  codes 
within  this  system.  The  records  and  table  codes  are: 

a.  Officer  identification  record  (OFFICER. DBF) 

b.  Rank  record  (RANK. DBF) 

c.  Military  education  record  (MILEDU. DBF) 

d.  General  education  record  (CIVEDU. DBF) 

e.  Occupation  record  (JOBOFF.DBF) 


* 


f.  Occupation  list  ( J0BL2ST. DBF ) 

g.  Body  characteristic  record  ( BODYCHAR. DBF ) 

h.  Corps  code  table  < CORPCODE. DBF ) 

i.  Rank  list  ( RANKLIST. DBF ) 

j.  Military  education  list  (MEDULIST. DBF) 

k.  General  education  list  ( CEDULIST. DBF ) 

l.  Sex  code  table  ( SEXCODE. DBF ) 

m.  Religion  code  table  ( RELIGION. DBF) 

n.  City  code  table  ( CITYCODE. DBF ) 

o.  Education  result  table  (RESULT. DBF) 

p.  Skin  color  table  ( COLORSK. DBF) 

q.  Hair  color  table  (TYPEHR. DBF) 

r.  Eye  color  table  < COLOREYE. DBF ) 

s.  Blood  table  (BLOOD. DBF) 

t.  Uniform  size  table  ( UNIFORM. DBF) 

u.  Echelon  code  table  ( ECHELON. DBF) 

v.  Rank  requirement  for  occupation  ( JOBRNK. DBF ) 

v.  Education  requirement  for  occupation  (JOBEDU.DBF) 
x.  Corps  requirement  for  occupation  ( JOBCORP. DBF ) 

For  a  ore  detailed  description  of  the  data  records  and 
tables,  see  Appendixes  B. 


RUNNING  THE  SYSTEM 

a.  Turn  on  the  following  devices,  in  order: 

1.  IBM  PC/compatible  system  unit  (switch  on  thi 
right  side). 

2.  The  monitor  (switch  located  on  the  front  tide). 


IS* 


NS! 


3.  The  printer  (Okidata,  switch  located  on  the 
right  side). 

b.  Insert  Operating  system  diskette  into  drive  A,  and 
the  system  into  drive  B. 

c.  Wait  for  the  system  to  boot  up,  answer  the  prompts 
by  entering  date  and  time  or  just  hit  <Enter>  twice. 

d.  When  the  screen  format  appears  type  <B:>  to  move 
drive  B. 

e.  Now  type  <dbase  pers> 

f.  When  the  system  asks  "enter  your  password  please", 
simply  type  <pers>;  If  you  fail  in  this  section 
because  you  type  the  wrong  password  (unauthorized 
access),  then  type  <do  pers>. 

g.  Now  you  are  in  the  OFFICER  system  which  displays  the 
main  menu.  The  main  menu  will  give  you  the  choice 
of  the  following  options 

A  - >  ADD  RECORD 

D  --->  DELETE  RECORD 

C  - >  CHANGE  RECORD 

P - >  PRINT 

q  - >  QUERY  INFORMATION 

R  - >  RETURN  TO  DATABASE 

S  - >  RETURN  TO  DOS 

Once  you  are  at  the  main  menu  level,  just  type  the  desired 
option  <  A,  D,  C,  P,  Q,  R,  S ) . 


APPENDIX  B 


DATA  DICTIONARY 

This  data  dictionary  contains  data  elements  of  the 
database  of  the  personnel  system.  There  are  S  columns  in  the 
table: 

1.  Data  item.  This  column  contains  the  data  item  as  it 
is  known  to  the  user. 

2.  Acronym.  This  column  contains  the  unique  name  for 
the  data  item  that  will  be  used  by  programmers/ 
analysts. 

3.  Type.  This  column  contains  the  data  item's  type.  "N" 
means  numeric  and  ”C*  means  character  (alphabetic). 

4.  Length.  This  column  contains  the  number  of 
characters  used  in  each  data  item. 

5.  Description.  This  column  contains  the  description  of 
the  data  item. 


L.  Officer  identification  QEEIQS8 

taaasaaasaasisssaasssssisssBsatasisssstsssiaaassassssssssrszssss 


DATA  ITEM 

ACRONYM 

LENGTH 

DESCRIPTION 

Serial  # 

SERNO 

C 

& 

serial  number,  primary  key 

Name 

NAME 

C 

25 

The  name  of  personnel 

Corps 

CORPS 

c 

2 

Corps  code  (  see  CORPCODE 

table  01) 

Present  rank 

RANKID 

N 

2 

Present  rank  (see  RANKLIST 
table  02  ) 

Education 

EDUID 

N 

2 

Last  military  education 
(  not  available) 

Sex 

SEX 

N 

1 

Sex  code  ( see  SEXCODE 

table  05) 

Birth  date 

BIRTHDD 

N 

2 

DD  ( Day ) 

Birth  month 

BIRTHMM 

N 

2 

MM  (Month) 

Birth  year 

BIRTHYY 

N 

2 

YY  (Year) 

Birth  place 

BIRTHP 

C 

20 

City 

Religion 

RELIGION 

c 

1 

See  RELIGION  table  06 

333*3X333*33*** 

3*33*33333 

3  3  3  3  3 

3  3  3  3*3*: 

333*3333333=:  333333333333333 

2.  Body  characteristic  BQDYCHAR 

aalixaaaaaasssaaasxaazsssaaasassssvsssataascsatscasaKsssassssssssss 


DATA  ITEM 

ACRONYM 

TYPE 

LENGTH  DESCRIPTION 

Serial  # 

SERNO 

C 

6 

serial  number,  primary  key 

Weight 

WEIGHT 

N 

3 

Weight  in  kg 

Height 

HEIGHT 

N 

3 

Height  in  cm 

Skin  color 

SKCQLOR 

N 

1 

Color  of  skin  (see  COLORSK 
table  09) 

Hair  type 

HRTYPE 

N 

1 

Type  of  hair  (see  TYPEHR 
table  10) 

Eye  color 

EYCOLOR 

N 

1 

Color  of  eyes  (see  CQLOREYE 
table  11) 

Blood  type 

BLOOD 

N 

1 

Type  of  blood  (see  BLOOD 
table  12) 

Size  of  shoes 

SHOE 

N 

2 

In  cm 

Size  of  hats 

HAT 

N 

2 

In  cm 

3  sizes  (see  UNIFORM 
table  13) 


Size  of  uniform  UNIFORM 


N 


1 


3.  Rank  RANK  (Intersection) 

3333333333333333333333333333333333333333333333333333333333333333 


DATA 

ITEM 

ACRONYM 

TYPE 

LENGTH 

DESCRIPTION 

Serial  # 

SERNO 

C 

6 

Seriai  number,  primary  key 

Rank 

ID 

RANKID 

c 

2 

Rank  code  (  see  RANKLIST 

table  02) 

Rank 

date 

RANKDD 

c 

2 

Date  of  rank 

Rank 

month 

RANKMM 

c 

2 

Month  of  rank 

Rank 

Year 

RANKYY 

c 

4 

Year  of  rank 

Order 

Number 

RORNO 

c 

8 

Order  Number  witb  format 
Number ( 4 ) /Month ( 2 ) /Year ( 2  ) 

Date 

Number 

RDATORNO 

N 

& 

DDMMYY 

3  =  3  =  3 

33  =  3  =  3333  =  3 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

It 

It 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

It 

II 

II 

II 

II 

It 

n 

ti 

4.  Military  Education  MILEDU  (Intersection) 


DATA  ITEM 

ACRONYM 

TYPE 

Serial  # 

SERNO 

C 

Rank 

MEDURANK 

N 

Education  level 

MEDLEVID 

C 

Education  ID 

MEDUID 

c 

Date  start 

MDDEDST 

N 

Month  start 

MMMEDST 

N 

Year  start 

MYYEDST 

N 

Date  end 

MDDEDED 

N 

Month  end 

MMMEDED 

N 

Year  end 

MYYEDED 

N 

Duration  of 
education 

MEDUDUR 

N 

Place  of 
education 

MEDUPLCE 

C 

N 


LENGTH  DESCRIPTION 


6  Serial  number,  primary  key 

2  Rank  in  education  (see 

RANKLIST  table  02) 

2  Level  of  education  (see 

MEDLEV  table  03) 

2  Military  education  (  net 

available ) 

2  Date  education  start 

2  Month  education  start 

2  Year  education  start 

2  Date  education  end 

2  Month  education  end 

2  Year  education  end 

3  Duration  of  education 

( Weeks ) 

3  Place  of  education  (City) 

(see  CITYCODE  table  07) 

Result  of  education  (see 
RESULT  table  08) 


Educ.  Result 


MEDURSLT 


1 


5.  General  Education  QIVEDU  (Intersection) 


533333333333333 

DATA  ITEM 

ACRONYM 

3  3  3  3  3  3 

TYPE 

LENGTH 

DESCRIPTION 

Serial  # 

SERNO 

C 

6 

Serial  number,  primary  key 

RANK 

CEDURANK 

N 

2 

Rank  in  education  (  see 

Education  Level 

CEDLEVID 

C 

2 

RANKLIST  table  02 
Educational  level  ( see 

Education  ID 

CEDUID 

C 

2 

CEDLEV  table  04) 

General  education 

Date  start 

CDDEDST 

N 

2 

(not  available) 

Date  education  start 

Month  start 

CMMEDST 

N 

2 

Month  education  start 

Year  start 

CYYEDST 

N 

2 

Year  education  start 

Date  *nd 

CDDEDED 

N 

2 

Da_te  education  end . 

Month  end 

CMMEDED 

N 

2 

Month  education  end 

Year  end 

CYYEDED 

N 

2 

Year  education  end 

Duration  of 

CEDUDUR 

N 

3 

Duration  of  education 

education 

Place  education 

CEDUPLCE 

C 

3 

( Weeks ) 

Place  of  education 

Educ.  Result 

CEDURSLT 

N 

1 

(see  CITYCODE  table  07) 
Result  of  education  (see 

II 

II 

11 

II 

u 

II 

II 

II 

II 

II 

3  3  3  3  3  3 

II 

II 

II 

II 

II 

II 

II 

RESULT  table  ) 

33333333333333333353333333 

6.  Occupation 

sssssssssssssss 

3333333333333333 

JOBOFF 

3  3  3  3  3  3  3 

(Intersection) 

33353333333333333333  =  53533 

DATA  ITEM 

ACRONYM 

TYPE 

LENGTH 

DESCRIPTION 

Serial  # 

SERNO 

C 

6 

Serial  number,  primary  key 

Job  ID 

JOBID 

C 

3 

Job  code  (  see  JOBLIST 
table  15) 

Rank 

JQBRANK 

N 

2 

Job  rank  (  see  RANKLIST 
table  02) 

Job  date 

JOBDD 

C 

2 

Date  of  job 

Job  month 

JOBMM 

C 

2 

Month  Job 

Job  Year 

JOBYY 

c 

4 

Year  Job 

Job  Echelon 

JOBECH 

N 

2 

Job  of  echelon  (see  ECHELON 
table  14) 

Order  Number 

JORNO 

c 

a 

Order  Number  with  format 
Number  ( 4 ) /Month ( 2 ) / Year ( 2 ) 

Date  Number 

JDATORNO 

N 

6 

DDMMYY 

It 

It 

II 

II 

II 

II 

II 

II 

II 

II 

II 

H 

II 

n 

ii 

11 

II 

II 

II 

II 

II 

II 

s  3  S  S 

II 

II 

II 

II 

II 

II 

II 

(1 

II 

II 

II 

II 

H 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

n 

ii 

ii 
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APPENDIX  C 


SAMPLES  OP  TABLE  CODE 

01.  Table  of  Corps  Cods  CORPCQDE 

aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaasa 

DATA  ITEM  ACRONYM  TYPE  LENGTH  DESCRIPTION 


Corps  ID  CORPS  C  2  Corps  code 

Corps  dssc  CORPSDES  C  10  Corps  name 


01- tine - - - - — . 05  Adminisiratiafj- 

02  Engineer  OS  Specialist 

03  Electronics  07  Health 

04  Marines  OS  Woman 


02.  Table  of 

Ranks 

RANKEST 

xaaaaaaaaaaas 

DATA  ITEM 

saaaaaaaaas  as 

ACRONYM 

:  a  a  a  s  a 

TYPE 

sasaaaaaaaasa 

LENGTH 

aaaaaaaaaaaaaaaaaaass 

DESCRIPTION 

Rank  ID 

RANKID 

C 

2 

Rank  code 

Description 

RANKDES 

C 

20 

Rank  title 

Education 

requirement 

RKEDUREO 

C 

2 

Education  require¬ 
ment  <  see  RNKEDURQ 
table  ) 

Echelon 

requirement 

RKECHREQ 

c 

2 

Echelon  requiremen 
(see  RNKECHRQ 

table  ) 


11  Admiral  /  General  IS  Captain 

12  Vice  Admiral  /  Lieutenant  General  19  First  Lieutenant 

13  Rear  Admiral  /  Major  General  20  Second  Lieutenant 

14  First  Admiral  /  Brigadier  General  21  Candidate  Officer 

15  Colonel 

16  Lieutenant  Colonel 

17  Major 


03.  Military  Education  Level  MEDLEY 


DATA  ITEM 


ACRONYM  TYPE  LENGTH 


DESCRIPTION 


Education  level  MEDLEVID  C  2 

Description  MEDLEDES  C  30 


Education  level 
Description 


11  National  Defence 

12  Joint  Command  &  Staff  College 

13  Command  and  Staff  College 

14  Staff  College 

15  2nd  Off.  Continuing  Education 


16  1 s t  Off.  Continuing  Edu. 

17  Naval  Academy 

18  Basic  Officer  School 

19  Candidate  Officer  School 


04.  General  Education  Level  CEDLEV 


sasssassa: 

s  a  a  a  a  a  : 

DATA  ITEM 

ACRONYM 

TYPE 

LENGTH 

DESCRIPTION 

Edication  level 

CEDLEVEL 

C 

2 

Education  level 

Description 

CEDUDES 

c 

30 

Level  of  Education 

11  University  Level 

12  Academy  Level 


13  Senior  High  School  Level 

14  Junior  High  School  Level 

15  Elementary  School  Level 


05.  Table  of  Religion  Code  RELIGION 

DATA  ITEM  ACRONYM  TYPE  LENGTH  DESCRIPTION 


Religion 

Description 

RELCODE 

RELDES 

N 

C 

1 

10 

Religion  code 

Name  of  Religion 

1  Moslem 

4 

Budhist 

2  Catholic 

5 

Hindu 

3  Protestant 

6 

Other 

06.  Table  of  Sex  Code  SEXCQDE 


DATA  ITEM 

ACRONYM 

TYPE 

LENGTH 

DESCRIPTION 

Sex 

SEX 

N 

1 

Sex  Code 

Sex 

SEXDES 

C 

6 

Sex 

1  Male 

2  Female 

07.  Table  of 

3333=33=3=3= 

City  code 

3  =  333  = 

CITYCODE 

DATA  ITEM 

ACRONYM 

TYPE 

LENGTH 

DESCRIPTION 

City  code 

CITYCODE 

N 

3 

City  code 

Description 

CITYDES 

C 

20 

The  name  of  City 

101 

Jakarta 

201 

Tokyo 

102 

Bap.dung 

201 

Bangkok 

103 

Bogor 

203 

Singapore 

104 

Semarang 

203 

Manila 

105 

Jogyakarta 

214 

Paris 

106 

Surakarta 

215 

London 

107 

Magelang 

301 

San  Francisco 

106 

Surabaya 

302 

San  Diego 

109 

Malang 

303 

Monterey 

110 

Madiun 

304 

Washington  DC 

111 

Medan 

305 

Quantico 

112 

U jungpandang 

306 

Newport 

113 

Denpasar 

307 

Lackland 

etc. 

etc. 

06.  Table  of  Education  Result  RESULX 

saaaasaaaaaaaaaaaaasaaaaaaaaaaasassasaasss: 


DATA  ITEM 


ACRONYM  TYPE  LENGTH 


DESCRIPTION 


Result  code 
Description 


RESCODE  N 
RESDES  C 


1 

25 


Education  result  code 
Result  of  education 


1  Graduate 

2  Certificate  of  Completion 


3  Incomplete 


tasaasssassasaaass: 


66 


09.  Table  of  Skin  Color 


C0L0RSK 


DATA  ITEM  ACRONYM  TYPE  LENGTH 


DESCRIPTION 


Skin  code 
Description 

1  Brown 

2  Black 


SKINCODE  N  1  Skin  color  code 

SKINDES  C  6  Skin  color  description 

3  ""White 

4  Yellow 


10:  Table  of  Hair  Type  TYPEHR 

DATA  ITEM  ACRONYM  TYPE  LENGTH  DESCRIPTION 


Hair  code  HAIRCODE  N  1  Hair  code 

Description  HAIRSDES  C  15  Hair  description 


1  Curly  3  Straight  stiff 

2  Wavy  4  Straight  limp 


11.  Table  of  Eye  Color  CQLQREYE 

DATA  ITEM  ACRONYM  TYPE  LENGTH  DESCRIPTION 

Eye  code  EYECQDE  N  1  Eye  color  code 

Description  EYEDES  C  5  Eye  color 

1  Black  3  Brown 

2  Blue 


12.  Table  of  Blood  Typea 


BLOOD 


DATA  ITEM 


ACRONYM  TYPE  LENGTH  DESCRIPTION 


Blood  code  BLOODCOD  N  1 

Description  BLOODDES  C  2 


5  AB* 

6  AB- 

7  0* 

a  o  - 


1  A* 

2  A- 

3  B* 

4  B- 


Blood  code 
Blood  description 


13.  Table  of  Uniform  Size  UNIFORM 

DATA  ITEM  ACRONYM  TYPE  LENGTH  DESCRIPTION 


Uniform  code  UNICODE  N  1  Uniform  code 

Description  UNIDES  C  6  Uniform  description 


1  Small 

2  Medium 


3  Large 


=============== 


14.  Table  of  Echelon  Code  ECHELON 

DATA  ITEM  ACRONYM  TYPE  LENGTH  DESCRIPTION 


Echelon  code  ECHCODE  C 
Description  ECHDES  C 


2 

11 


Echelon  code 
Echelon  description 


11 

Echelon 

1  -A 

12 

Echelon 

1  -  B 

13 

Echelon 

1-C 

14 

Echelon 

1-D 

15 

Echelon 

1-E 

16 

Echelon 

1-F 

17 

Echelon 

1-G 

18 

Echelon 

1-H 

21 

Echelon 

2-A 

22 

Echelon 

2  -  B 

23 

Echelon 

2-C 

24 

Echelon 

2-D 

25 

Echelon 

2-E 

26 

Echelon 

2-F 

31 

Echelon 

3-A 

32 

Echelon 

3-B 

33 

Echelon 

3-C 

34 

Echelon 

3-D 

35 

Echelon 

3-E 

41 

Functional 

m  "ji  •#»  ^  ^ytT'.r’rr^Tvyw>7F 


IS.  Occupation 

saaaaaaaaxxxxxs 

list 

aaaaaaaaa 

a  a  a  a  a  a 

JOBLIST 

333333333333 

33333333333333X3333333 

DATA  ITEM 

ACRONYM 

TYPE 

LENGTH 

DESCRIPTION 

Job  ID 

JOBID 

C 

3 

Job  code 

Job  Descript 

JQBDES 

C 

30 

Name  of  Job 

Echelon 

ECHELON 

c 

2 

Job  echelon  (see 
ECHELON  table  14  > 

Station 

JOBSTAT 

c 

2 

Station 

Hf 

I 

L 


«! 

« 

« 

« 

1 

I 
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APPENDIX  D 


EXAMPLES  OF  PROGRAM 


PROGRAM  NAME  :  PERS. PRG  • 

AUTHOR  :  DJOKO  M.  ARIYADI  * 

DATE  WRITTEN  :  MAY,  1986  * 

PURPOSE  :  THIS  IS  THE  MAIN  MENU  PROGRAM  FOR  THE 

OFFICER  SYSTEM 

PROGRAMS  CALLED  BY  THIS  PROGRAM  ARE  :  * 

ADDMENU. PRG  DELMENU. PRG  * 

CHGMENU. PRG  PRNMENU. PRG 

QUEMENU. PRG  * 

NO  FILES  DBF  ARE  USED. 


SET  COLOR  TO  30, 14 
SET  TALK  OFF 
SET  CONSOLE  ON 
ERASE 

STORE  '  '  TO  PASS 

9  8.22  SAY  '  WELCOME  TO  THE  NAVY  OFFICER  PERSONNEL  SYSTEM.  ' 

9  12, 22  SAY  '  ENTER  YOUR  PASSWORD  PLEASE 

SET  CONSOLE  OFF 

ACCEPT  TO  PASS 

STORE  1 ( PASS )  TO  PASS 

SET  CONSOLE  ON 

IF  TRIM ( PASS )  <>  'PERS' 

9  15,10  SAY  'YOU  TYPED  THE  WRONG  PASSWORD,  TRY  AGAIN  FROM  THE ; 
BEGINNING' 

9  17,25  SAY  'QUIT  TO  DBASE  II  !!' 

CANCEL 

ENDIF 

RELEASE  PASS 


MAIN  MENU 


>  ADD  RECORD" 


DO  WHILE  T 

STORE  "  "  TO  ANSWER 
SET  TALK  OFF 
ERASE 

q  «*  n 

9  2, 1  SAY  "OFFICER 

MAY  1986" 

SET  COLOR  TO  4 

X233XX2XX32X23X22222fV 
^  If  «• 

f  n  w 

?  "  A - 


D  - >  DELETE  RECORD 


7 

? 

? 

7 

7 

? 

7 

7 

? 

7 

7 

? 

? 

7 


w 


II 


If 


II 


N 

« 


7  it  s  a  s  s 


C  - >  CHANGE  RECORD" 

P  - >  PRINT" 

Q  --->  QUERY  INFORMATION  w 

R  - >  RETURN  TO  DATABASE" 

S  - >  RETURN  TO  DOS" 


t  a  a  a  a  *1 


@  23,16  SAY  "SELECT  AN  ACTION  BY  LETTER. =======>  •  GET  ANSWER; 

PICTURE" i " 


<?  23,  16  SAY  CHR 

READ 

DO -CASE 

CASE  ANSWER  - 
DO  ADDMENU 
CASE  ANSWER  = 
DO  DELMENU 
CASE  ANSWER  « 
DO  CHGMENU 
CASE  ANSWER  = 
DO  PRNMENU 
CASE  ANSWER  - 
DO  QUEMENU 
CASE  ANSWER  = 
CANCEL 

CASE  ANSWER  = 
DO  QUIT 
OTHERWISE 
DO  ERROR 
ENDCASE 
ENDDO 
ERASE 
RETURN 


(7) 


'A' 

'D' 

'C' 

,p» 

'Q' 

'R' 

'S' 


PROGRAM  NAME 
AUTHOR 

DATE  WRITTEN 
PURPOSE 


ADDMENU.  PRG 
DJOKO  M.  ARIYADI 
MAY,  1986 

TO  PRESENT  THE  ADDITION  MENU 
PROGRAMS  CALLED  BY  THIS  PROGRAM  ARE  : 

ADDOFF.  PRG  ADDRANK.  PRG  ADDCORPS.  PRG  ADDRCODE.  PRL> 

ADDJOB. PRG  ADDJCODE.  PRG  ADDEDU.  PRG  ADDECODE.  PRG 

LOCAL  VARIABLE  USED  :  ANSWER 
NO  FILES  DBF  ARE  USED. 


CLEAR 

ERASE 

DO  WHILE  T 

STORE  •  "  TO  ANSWER 
SET  TALK  OFF 
ERASE 

o  n  n 

02,1  SAY  "ADDITION 
MAY  1986* 
set  color  to  4 

2  *  SB  9  3  2  3  3  s  s  s  s  s  s  «  s  s  s  s  ; 

=322222222222222222* 

2  *  * 

2  " 

2  n  * 

2  *  * 

2  *  w 

?  " 

ADDITION" 

1  w  n 
O  " 


MENU 


RECORD  ADDITION  OPTION" 


q  -->  OFFICER  ADDITION 


C  -->  CORPS  ADDITION 


K  -->  JOB; 


L  -->  JOB; 


CODE  ADDITION  " 


?  "  E 

ADDITION  " 

?  «  i* 

?  "  F 

CODE  ADDITION" 

?  ■  » 

?  »  » 

?  " 

?nss33=ass3s: 


-->  EDUCATION  ADDITION 


-->  EDUCATION  CODE  ADDITION 


R  -->  RANK; 


S  -->  RANK; 


TYPE  RETURN  KEY,  RETURN  TO  MENU" 


0  23,16  SAY  "SELECT  AN  ACTION  BY  LETTER.  =  =  =  =  =  =  =  >  "  GET  ANSWER; 
PICTURE  »l" 

0  23, 16  SAY  CHR  (7) 

READ 
DO  CASE 

CASE  ANSWER  =  '  ' 


.1.  ».  j.  _<»  -fc  A,'  **■-*.•- y.'~  •«-  ,».i .<«» ,»«'  ■«.'■».  J»  -iti1  .v.i.  A  A 


RETURN 

CASE  ANSWER  »  'Q' 
DO  ADDOFF 
CASE  ANSWER  *  'C' 
DO  ADDCORPS 
CASE  ANSWER  =  'E' 
DO  ADDEDU 
CASE  ANSWER  -  'F' 
DO  ADDCEDU 
CASE  ANSWER  -  'K' 
DO  ADDJOB 
CASE  ANSWER  =  'L' 
DO  ADDCJQB 
CASE  ANSWER  =  'R' 
DO  ADDRANK 
CASE  ANSWER  =  'S' 
DO  ADDCRANK 
OTHERWISE 
DO  ERROR 
ENDCASE 
ENDDQ 
ERASE 
RETURN.. 
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PROGRAM  NAME  :  DELMENU. PRG 

AUTHOR  :  DJOKO  M.  ARIYADI 

DATE  WRITTEN  :  MAY,  1936  * 

PURPOSE  :  TO  PRESENT  THE  DELETE  MENU 

PROGRAMS  CALLED  BY  THIS  PROGRAM  ARE  : 

DELOFF. PRG  DELRANK. PRG  DELCGRPS. PRG  DELRCODE. PRG  * 

DELJOB. PRG  DELEDU. PRG  DELCJOB. PRG  DELECODE. PRG 
LOCAL  VARIABLE  USED  :  ANSWER 

NO  FILES  DBF  ARE  USED.  • 


CLEAR 

ERASE 

DO  WHILE  T 

STORE  "  "  TO  ANSWER 
SET  TALK  OFF 
ERASE 

7  »  ■ 

<?  2, 1  SAY  "DELETION  MENU 

MAY  1986" 

SET  COLOR  TO  4 


? 

******** 

=  =  = 

3  3  3 

II 

II 

II 

II 

H 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

It 

II 

II 

II 

II 

0 

II 

II 

It 

II 

11 

II 

7 

3333S33S3 

n  if 

7 

* 

DELETE 

OPTION  " 

? 

n  i» 

? 

n  n 

• 

? 

if  it 

? 

m 

0 

--> 

DELETE 

OFFICER 

K  --> 

DELETE; 

JOB 

if 

? 

it  it 

? 

« 

c 

—  > 

DELETE 

CORPS 

L  --> 

DELETE : 

JOB 

CODE" 

7 

n  if 

7 

n 

E 

-  -  > 

DELETE 

EDUCATION 

R  --> 

DELETE; 

RANK 

if 

? 

W  If 

? 

n 

F 

- > 

DELETE 

EDUCATION  CODE 

S  --> 

DELETE; 

RANK 

CODE" 

? 

II  If 

? 

If  If 

7 

If  If 

7 

If 

TYPE  RETURN 

KEY,  RETURN 

TO  MENU" 

0  23,16  SAY  "SELECT  AN  ACTION  BY  LETTER. ======= >  "  GET  ANSWER; 

PICTURE  "!" 


9  23, 16  SAY  CHR  (7) 

READ 

DO  CASE 


CASE  ANSWER  *  '  ' 

RETURN 


CASE 

ANSWER  = 

'O' 

DO 

DELOFF 

CASE 

ANSWER  = 

'C' 

DO 

DELCORPS 

CASE 

ANSWER  » 

'E' 

DO 

DELEDU 

CASE 

ANSWER  = 

'  F ' 

DO 

DELCEDU 

CASE 

ANSWER  = 

'K' 

DO 

DELJOB 

CASE 

ANSWER  = 

'L' 

DO 

DELC JOB 

CASE 

ANSWER  = 

'R' 

DO 

DELRANK 

CASE 

ANSWER  = 

'S' 

DO 

DELCRANK 

OTHERWISE 
DO  ERROR 
ENDCASE 
ENDDO 
ERASE 
RETURN 
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,  * 


»  k 


I 
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*  PROGRAM  NAME  :  CHGMENU. PRG 

*  AUTHOR  :  DJOKO  M.  ARIYADI 

*  DATE  WRITTEN  :  MAY,  1986 

*  PURPOSE  :  TO  PRESENT  THE  CHANGE  MENU 

*  PROGRAMS  CALLED  BY  THIS  PROGRAM  ARE  : 

*  CHGOFF. PRG  CHGRANK. PRG  CHGCORPS. PRG  CHGRCODE. PRG 

*  CHGJOB.  PRG  CHGJCODE.  PRG  CHGECODE.  PRG  CHGEDIJ.  PRG 

*  LOCAL  VARIABLE  USED  :  ANSWER 

*  NO  FILES  DBF  ARE  USED. 


CLEAR 

ERASE 

DO  WHILE  T 

STORE  »  "  TO  ANSWER 
SET  TALK  OFF 
ERASE 

O  n  m 

9  2,  1  SAY  "CHANGE  MENU 

MAY  1986" 

SET  COLOR  TO  4 


2  »  » 

?  " 

■7  w  II 

2  tt  II 

2  «  if 

?  " 

JOB" 

2  "  " 

?  " 

JOB  CODE" 

2  "  tt 

2  » 

RANK  " 

•7  »  « 

?  " 

RANK  CODE  " 


2  tt  n 
o  It  tt 

•7  it  n 

2  f 


—  —  —  tt 

RECORD  CHANGE  OPTION" 

O  -->  CHANGE  OFFICER  K  -->  CHANGE; 

C  -->  CHANGE  CORPS  L  -->  CHANGE: 

E  -->  CHANGE  EDUCATION  R  -->  CHANGE; 

F  -->  CHANGE  EDUCATION  CODE  S  -->  CHANGE; 

TYPE  RETURN  KEY,  RETURN  TO  MENU" 


9  23,16  SAY  "SELECT  AN  ACTION  BY  LETTER. ======= >  "  GET  ANGWER; 

PICTURE  "!" 

9  23, 16  SAY  CHR  (7) 

READ 
DO  CASE 


CASE  ANSWER  = 
RETURN 


CASE 

ANSWER  = 

'O' 

DO 

CHGOFF 

CASE 

ANSWER  = 

'C' 

DO 

CHGCORPS 

CASE 

ANSWER  = 

'E' 

DO 

CHGEDU 

CASE 

ANSWER  - 

'F' 

DO 

CHGCEDU 

CASE 

ANSWER  - 

'K' 

DO 

CHGJOB 

CASE 

ANSWER  = 

'  L' 

DO 

CHGCJOB 

CASE 

ANSWER  = 

'R' 

DO 

CHGRANK 

CASE 

ANSWER  = 

'S' 

DO 

CHGCRANK 

OTHERWISE 
DO  ERROR 


ENDCASE 
ENDDO 
ERASE  . 
RETURN  " 
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*  PROGRAM  NAME  :  OUEMENU. PRG 

*  AUTHOR  :  DJOKO  M.  ARIYADI 

*  DATE  WRITTEN  :  MAY,  1986 

*  PURPOSE  :  TO  PROVIDE  ClUERY  MENU  SELECTION 

*  PROGRAMS  CALLED  BY  THIS  PROGRAM  ARE  : 

*  QUERYA,  QUERYB,  QUERYC,  QUERYD,  QUERYE.  PRG 

*  LOCAL  VARIABLE  USED  :  ANSWER 
»  NO  FILES  DBF  ARE  USED. 


CLEAR 

ERASE 

DO  WHILE  T 

STORE  "  "  TO  ANSWER 
SET  TALK  OFF 
ERASE 

O  if  n 

9  2,  1  SAY  "QUERY 

MAY  1986" 
SET  COLOR  TO  4 
q  "================= 


?  * 

q  n  if 

O  n  it 


A  - >  PROVIDE  MIL.  EDUCATION  LEVEL; 


B  - >  PROVIDE  ANY  MIL.  EDUCATION; 


C  - >  PROVIDE  RANK  HISTORY  INFKMATION " 

D  - >  PROVIDE  JOB  HISTORY  INFORMATION" 

E  - >  PROVIDE  JOB  ELIGIBLE  INFORMATION  " 


TYPE  RETURN  KEY,  RETURN  TO  MKNIJ" 


(?  23,16  SAY  "SELECT  AN  ACTION  BY  LETTER  .=  =  =  =  =  =  =  >  "  GET  AN  OWE 
PICTURE  "!" 

9  23,  16  SAY  CHR  (7) 

READ 
DO  CASE 

CASE  ANSWER  =  '  ' 

RETURN 


o  i»  it 
?  " 

INFORMATION" 

q  n  if 
?  " 

INFORMATION" 

•j  n  « 

?  " 

on  it 
?  " 

on  it 
?  " 

on  it 
On  n 
o  n 

?"=s==zs= 


CASE  ANSWER  =  'A' 
DO  QUERYA 
CASE  ANSWER  =  'B' 

DO  QUERYB 
CASE  ANSWER  =  'C' 
DO  OUERYC 
CASE  ANSWER  =  'D' 
DO  OUERYD 
CASE  ANSWER  =  'E' 
DO  OUERYE 
OTHERWISE 
DO  ERROR 
ENDCASE 
ENDDO 
ERASE 
RETURN 
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PROGRAM  NAME 
AUTHOR 

DATE  WRITTEN 
PURPOSE 


PRNMENU. PRG 
DJOKG  M.  ARIYADI 
MAY,  1986 

TO  PROVIDE  PRINT  MENU  SELECTION 
PROGRAMS  CALLED  BY  THIS  PROGRAM  ARE  : 

PROFMENU,  PRRKMENU,  PRJOMENU. PRG 
LOCAL  VARIABLE  USED  :  ANSWER 
NO  FILES  DBF  ARE  USED. 


ERASE 

DO  WHILE  T 

STORE  *  "  TO  ANSWER 
SET  TALK  OFF 
ERASE 

?  *  i* 

0  2, 1  SAY  "PRINT 

MAY  1986" 
SET  COLOR  TO  4 


MENU 


H " 

n 

n 

n 

it 

H 

tl 


PRINT  MENU  OPTIONS  " 


p  - >  OFFICER  RECORD" 


R  - >  RANK  CODE  RECORD" 


J  - >  JOB  CODE  RECORD" 


TYPE  RETURN  KEY,  RETURN  TO  MENU" 


0  23,16  SAY  "SELECT  AN  ACTION  BY  LETTER.  =  =  =  =  =  =  =  >  -•  GET  ANSWER 
PICTURE  "!" 

»  23, 16  SAY  CHR  (7) 

READ 
DO  CASE 

CASE  ANSWER  =  '  ' 

RETURN- 

CASE  ANSWER  =  'P' 

DO  PROFMENU 


CASE  ANSWER  =  'R' 
DO  PRRKMENU 
CASE  ANSWER  =  'J' 

DO  PR JOMENU 
OTHERWISE 
DO  ERROR 
ENDCASE 
ENDDO 
ERASE 
RETURN 


OTHERWISE 
DO  ERROR 
ENDCASE 


ENDDQ 

ERASE 

RETURN 


PROGRAM  NAME 
AUTHOR 

DATE  WRITTEN 
PURPOSE 


:  PROFRANK.PRG 
:  DJOKO  M.  ARIYADI 
:  MAY  ,  1986 

:  TO  PRINT  OFFICER'S  LISTING  BY  RANK 


PROGRAMS  CALLED  BY  THIS  PROGRAM  ARE  ! 

PERSRANK. FRM 

LOCAL  VARIABLE  USED  :  Q:PRS 

DBF  FILE  USED  ARE  :  OFFICER, RANKLIST 


ERASE 

CLEAR 

SET  TALK  OFF 
SET  COLOR  TO  20, 5 
STORE  T  TO  QjFLAGI 
DO  WHILE  Q : FLAG1 
USE  OFFICER 

@  12,20  SAY  "  BE  PATIENT  PLEASE,  STILL  PROCESSING" 

INDEX  ON  RANKID  TO  TF1 

SELECT  PRIMARY 
USE  OFFICER  INDEX  TF1 
SELECT  SECONDARY 
USE  RANKLIST 

JOIN  TO  OFFRANK  FOR  P. RANKID  =  S.  RANKID  FIELDS  P. SERNO, P. NAMi 
RANKDES 


USE  OFFRANK 
ERASE 

STORE  T  TO  Q : FLAG2 
DO  WHILE  Q : FLAG2 
ERASE 

0  8,15  SAY  'DO  YOU  WANT  THIS  LIST  ON  THE  SCREEN  or: 
PRINTER?' 


ACCEPT  "  ENTER  ' 

HARDCOPY"  to  Q:PRS 
READ 
DO  CASE 

CASE  Q : PRS  =  's' 

ERASE 

REPORT  FORM  PERSRANK 
STORE  F  TO  Q : FLAG1 
STORE  F  TO  Q : FLAG2 
CASE  O.-PRS  =  'h' 

ERASE 

REPORT  FORM  PERSRANK  TO  PRINT 
STORE  F  TO  Q : FLAG1 
STORE  F  TO  Q : FLAG2 
OTHERWISE 

STORE  F  TO  Q : FLAG1 


ENTER  's'  for  SCREEN  o. 
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DO  ERROR 
ERASE 
LOOP 
ENDCASE 
ENDDG 

SET  COLOR  TO  4 

OH  H 

?  "  TYPE  ANY  KEY  TO  CONTINUE  " 

SET  CONSOLE  OFF 

WAIT 

SET  CONSOLE  ON 

ENDDO 

RETURN 


I 


WlfifPiWUm 


*  PROGRAM  NAME  :  PROFNAME. PRG 

*  AUTHOR  :  DJOKO  M.  ARIYADI 

*  DATE  WRITTEN  :  MAY  ,  1986 

*  PURPOSE  :  TO  PRINT  OFFICER'S  LISTING  BY  NAME 

*  PROGRAMS  CALLED  BY  THIS  PROGRAM  ARE  : 

*  PERSNAME. FRM  ♦ 

*  LOCAL  VARIABLE  USED  :  Q:PRS 

*  DBF  FILE  USED  ARE  :  OFFICER, RANKLIST 


ERASE 

CLEAR 

SET  TALK  OFF 
SET  COLOR  TC  20,  5 
STORE  T  TO  Q : FLAG1 
DO  WHILE  Q : FLAG1 
USE  OFFICER 

0  12,20  SAY  "  BE  PATIENT  PLEASE,  STILL  PROCESSING" 

INDEX  ON  NAME  TO  TF1 

SELECT  PRIMARY 
USE.  OFFICER  INDEX  TF1 
SELECT  SECONDARY 
USE  RANKLIST 

JOIN  TO  OFFRANK  FOR  P.  RANKID  =  S. RANKID  FIELDS  P.  SERNO,  P.  NAME,  ; 
RANKDES 

USE  OFFRANK 
ERASE 

STORE  T  TO  Q : FLAG2 
DO  WHILE  Q : FLAG2 
ERASE 

0  8,  15  SAY  'DO  YOU  WANT  THIS  LIST  ON  THE  SCREEN  or  PRINTER?' 

9  #»  »» 

ACCEPT  "  ENTER  's'  tor  SCREEN  or  'h'  for; 

HARDCOPY"  to  Q : PRS 
READ 
DO  CASE 

CASE  Q : PRS  =  's' 

ERASE 

REPORT  FORM  PERSNAME 
STORE  F  TO  Q : FLAG1 
STORE  F  TO  Q : FLAG2 
CASE  Q : PRS  =  'h' 

ERASE 

REPORT  FORM  PERSNAME  TO  PRINT 
STORE  F  TO  Q : FLAG1 
STORE  F  TO  Q : FLAG2 
OTHERWISE 

STORE  F  TC  Q : FLAG1 
DO  ERROR 
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ERASE 

LOOP 

ENDCASE 

ENDDO 

SET  COLOR  TO  4 

O  If  * 

1  "  TYPE  ANY  KEY  TO  CONTINUE  " 

SET  CONSOLE  OFF 

WAIT 

SET  CONSOLE  ON 

ENDDO 

RETURN 


1 

i 

4 

! 

* 


*  PROGRAM  NAME  :  PROFSERN. PRG 

*  AUTHOR  :  DJOKO  M.  ARIYADI 

*  DATE  WRITTEN  :  MAY,  1986 

*  PURPOSE  s  TO  PRINT  OFFICER'S  LISTING  BY  SERIAL  NUMBER  - 

*  PROGRAMS  CALLED  BY  THIS  PROGRAM  ARE  : 

*  PERSERNO. FRM 

*  LOCAL  VARIABLE  USED  :  Q:PRS 

*  DBF  FILE  USED  ARE  :  OFFICER, RANKLIST 


ERASE 

CLEAR 

SET  TALK  OFF 
SET  COLOR  TO  20,  5 
STORE  T  TO  QtFLAGl 
DO  WHILE  Q : FLAG1 
USE  OFFICER 

<?  12,20  SAY  "  BE  PATIENT  PLEASE,  STILL  PROCESSING" 

INDEX  ON  SERNO  TO  TF1 

SELECT  PRIMARY 
USE  OFFICER  INDEX  TF1 
SELECT  SECONDARY 
USE  RANKLIST 

JOIN  TO  OFFRANK  FOR  P. RANKID=S. RANKID  FIELDS  P. SERNO,  P.  NAME,  ; 
RANKDES 

USE  OFFRANK 
ERASE 

STORE  T  TO  Q : FLAG2 
DO  WHILE  Q : FLAG2 
ERASE 

0  8,15  SAY  'DO  YOU  WANT  THIS  LIST  ON  THE  SCREEN  or  PRINTER?' 

I* 

ACCEPT  "  ENTER  's'  for  SCREEN  or  '  r. '  tor; 

HARDCOPY"  to  Q:PRS 
READ 
DO  CASE 

CASE  Q : PRS  =  's' 

ERASE 

REPORT  FORM  PERSERNO 
STORE  F  TO  Q : FLAG1 
STORE  F  TO  Q : FLAG2 
CASE  Q : PRS  =  'h' 

ERASE 

REPORT  FORM  PERSERNO  TO  PRINT 
STORE  F  TO  Q : FLAG1 
STORE  F  TO  Q : FLAG2 
OTHERWISE 

STORE  F  TO  QtFLAGl 


i  i.4 


DO  ERROR 
ERASE 
LOOP 
ENDCASE 
ENDDO 

SET  COLOR  TO  4 


TYPE  ANY  KEY  TO  CONTINUE  " 


SET  CONSOLE  OFF 
WAIT 

SET  CONSOLE  ON 

ENDDO 

RETURN 


WWW 


W 5 


VTi’WH.WVWfk'f 


*  PROGRAM  NAME  :  DELQFF . PRG 

*  AUTHOR  :  DJOKO  M.  ARIYADI 

*  DATE  WRITTEN  s  MAY, 1966 

*  PURPOSE  :  TO  DELETE  OFFICER  RECORD 

*  PROGRAMS  CALLED  BY  THIS  PROGRAM  ARE 

*  DBF  FILES  USED  ARE  :  OFFICER 


SET  TALK  OFF 
SET  CONSOLE  ON 
ERASE 

STORE  t  TO  flag 
DO  WHILE  t 
SET  COLOR  TO  30, 14 

USE  OFFICER 

INDEX  ON  SERNO  TO  DELOFF 


USE  OFFICER  INDEX  DELOFF 

'  TO  msn 


STORE  ' 

ERASE 

9  5,  23  SAY 
9  10, 23  SAY 
.  <3  12,  23  SAY 
9  16,  23  SAY 
READ 

If  msn  =  '  ' 

RELEASE  msn,  f laq 
RETURN 
endif 


'TO  DELETE  OFFICER  RECORD' 

'ENTER  SERIAL  NUMBER  '  GET  msn  PICTURE 
'  e. g  :  005001;  006005;  007001 ' 

A  BLANK,  RETURN  TO  DELETE  MENU  1 


' 9 9 9999 ' 


ENTER 


FIND  &msn 
IF  #  =  0 

SET  COLOR  TO  112,140 

9  12,20  SAY  'SERIAL  NUMBER  NOT  ON  THIS  PER6  RECORDS' 
9  13, 40  SAY  CHR ( 7 ) 

SET  TALK  OFF 
STORE  1  TO  v 
DO  WHILE  v<200 

STORE  v-1  TO  v 
ENDDO  WHILE  v<250 
SET  COLOR  TO  30, 14 
LOOP 

ENDIF  #  =  0 
ERASE 


STORE  '  '  to  mname 

STORE  '  '  to  mcorp 

STORE  0  to  mrankld 

STORE  '  '  to  meduid 

STORE  '  '  to  msex 

STORE  '  '  to  mbirthdd 

STORE  '  '  to  mbirthmm 
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Jjf.V.  JAlV.V. 


STORE 

STORE 

STORE 


to  mbirthyy 


to  mbirthp 


»  9 

'  '  to  mreligion 


STORE  serno  to  msn 
STORE  name  to  mname 
STORE  corps  to  mcorps 
STORE  rankid  to  mrankid 
STORE  eduid  to  meduid 
STORE  sex  to  msex 
STORE  birthdd  to  mbirthdd 
STORE  birthmm  to  mbirthmm 
STORE  birthyy  to  mbirthyy 
STORE  birthp  to  mbirthp 
STORE  religion  to  mreligion 


9 

4,  20 

say  ' 

THIS 

IS  THE  DATA 

YOU  WANT 

TO  DELETE 

9 

7,  23 

SAY  ' 

SERIAL 

# 

'  ♦men 

9 

8,  23 

SAY  ' 

NAME 

'GET 

mname 

9 

9,  23 

SAY  ' 

CORPS 

'GET 

mcorps 

9 

10,  23 

SAY 

'  RANK 

• 

'GET 

mrankid 

9 

11,  23 

SAY 

'MIL. 

EDUCATION 

'GET 

meduid 

9 

12,  23 

SAY 

'SEX 

'GET 

msex 

9 

13,  23 

SAY 

' BIRTH 

DAY 

'GET 

mbirthdd 

9 

14,  23 

SAY 

'BIRTH 

MONTH 

'GET 

mbirthmm 

9 

15,  23 

SAY 

'BIRTH 

YEAR 

'GET 

mbirthyy 

9 

16,  23 

SAY 

' BIRTH 

PLACE 

'GET 

mbirthp 

9 

17,  23 

SAY 

'RELIGION 

'GET 

mr e  Lxqion 

STORE  '  '  TO  answer 

9  19,20  SAY  '  ARE  YOU  SURE  TO  DELETE  THIS  DATA  ?' 

9  21, 16  SAY  '  TYPE  y  FOR  yes  OR  n  RETURN  TO  SERIAf 
OPTION' 

<?  21,65  GET  answer 

READ 

DO  CASE 

CASE  (answer)  =  'y' 

DELETE 

PACK 

CLEAR 

STORE  t  TO  flag 
CASE  (answer)  =  'n' 

STORE  t  TO  flag 
OTHERWISE 
DO  ERROR 
ENDCASE 
ENDDO  WHILE  t 
USE  OFFICER 

INDEX  ON  SERNO  TO  DELOFF 

ERASE 

RETURN 


*  PROGRAM  NAME  :  CHGOFF. PRG 

*  AUTHOR  :  DJQKO  M.  ARIYAD 

*  DATE  WRITTEN  :  MAY,  1986 

*  PURPOSE  :  TO  CHANGE  OFFICER  RECORDS 

*  PROGRAMS  CALLED  BY  THIS  PROGRAM  ARE  : 

*  DBF  FILES  USED  ARE  :  OFFICER 


SET  TALK  OFF 
SET  CONSOLE  ON 
ERASE 

USE  OFFICER 

INDEX  ON  SERNQ  TO  CHGOFF 
USE  OFFICER  INDEX  CHGOFF 

STORE  t  TO  flag 
DO  WHILE  t 

SET  COLOR  TO  30, 14 

STORE  '  '  TO  man 

ERASE 

0  5,23  SAY  'TO  CHANGE  OFFICER  RECORDS' 

0  10,23  SAY  'ENTER  SERIAL  NUMBER  '  GET  man  PICTURE  '999999' 
@12,23  SAY  'e.g  5  005001;  006005;  007001' 

@  16,23  SAY  'ENTER  A  BLANK  RETURN  TO  CHANGE  MENU  ' 

READ 

IF  man  =  ' 

RELEASE  msn, flag 
RETURN 
ENDIF 
FIND  &msn 
IF  #  =  0 

SET  COLOR  TO  112,140 

@  12,20  SAY  'SERIAL  NUMBER  NOT  ON  THIS  OFFICER; 

RECORDS' 

@  13. 40  SAY  CHR ( 7 ) 

SET  TALK  OFF 
STORE  1  TO  v 
DO  WHILE  v<200 

STORE  v-1  TO  v 
ENDDO  WHILE  v<235 
SET  COLOR  TO  30, 14 
LOOP 

ENDIF  #  =  0 
ERASE 

•  load  old  values 
STORE  name  TO  mname 
STORE  corps  TO  mcorps 
STORE  rankid  TO  mrankid 
STORE  eduid  TO  meduid 
STORE  sex  TO  msex 
STORE  birthdd  TO  mbirthdd 
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STORE  birthmm  TO  mbirthmm 
STORE  birthyy  TO  mbirthyy 
STORE  birthp  TO  mbirthp 
STORE  religion  TO  mreligion 
*  get  new  values 

0  4,20  say  '  THIS  IS  THE  DATA  YOU  WANT  TO  CHANGE' 

0  7,23  SAY  'SERIAL  NUMBER  '  +msn 
0  8,23  SAY  'NAME  'GET  mname 

0  9,23  SAY  'CORPS  'GET  mcorps 

0  10,23  SAY  'RANK  '  GET  mrankid 

0  11,23  SAY  'MIL.  EDUCATION  '  GET  meduid 

0  12,23  SAY  'SEX  'GET  msex 

0  13,23  SAY  'BIRTH  DATE  'GET  mbirthdd 

0  14,23  SAY  'BIRTH  MONTH  'GET  mbirthmm 

0  15,23  SAY  'BIRTH  YEAR  'GET  mbirthyy 

0  16,23  SAY  'BIRTH  PLACE  'GET  mbirthp 

0  17,23  SAY  'RELIGION  'GET  mreligion 

STORE  'y'  TO  answer 

0  20,20  SAY  '  ARE  YOU  SURE  TO  CHANGE  THIS  DATA  ?' 

0  22,16  SAY  'TYPE  y  FOR  yes  OR  n  RETURN  TO  SERIAL  #  OPTION 
0  22, 65  GET  answer 
READ 
DO  CASE 

*  replace  values 
CASE  (answer)  =  'y' 

REPLACE  name  WITH  mname,  corps  WITH  mcorps,  rankid; 
WITH  mrankid 

REPLACE  eduid  WITH  meduid,  sex  WITH  msex,  birthdci; 
WITH  mbirthdd 

REPLACE  birthmm  WITH  mbirthmm,  birthyy  WITH  mbirthyy 
REPLACE  birthp  WITH  mbirthp,  religion  WITH  mreligron 
STORE  t  to  flag 
CASE  (answer)  =  'n' 

STORE  t  TO  flag 
OTHERWISE 
DO  ERROR 
ENDCASE 
ENDDO  WHILE  t 
USE  OFFICER 

INDEX  ON  SERNO  TO  CHGOFF 

ERASE 

RETURN 


*  PROGRAM  NAME  :  ADDOFF. PRG 

*  AUTHOR  :  DJOKO  M.  ARIYADI 

*  DATE  WRITTEN  :  MAY,  1986 

*  PURPOSE  ;  TO  PERMIT  ADDITIONS  TO  OFFICER  RECORDS 

*  PROGRAMS  CALLED  BY  THIS  PROGRAM  ARE  : 

*  DBF  FILES  USED  ARE  :  OFFICER 


SET  TALK  OFF 
SET  CONSOLE  ON 
ERASE 

USE  OFFICER 

INDEX  ON  SERNO  TO  ADDOFF 
USE  OFFICER  INDEX  ADDOFF 
STORE  t  TO  flag 
DO  WHILE  T 
SET  COLOR  TO  30, 14 

STORE  '  '  TO  msn 

ERASE 

0  5,20  SAY  'ADDITION  TO  OFFICER  RECORDS' 

<3  10,  IS  SAY  'ENTER  SERIAL  NUMBER  '  GET  msn  PICTURE; 
'999999' 

0  12,  18  SAY  'e.g  :  005004;  007002;  009001' 

0  16,16  SAY  'ENTER  A  BLANK  TO  RETURN  TO  ADDITION  MENU’ 
READ 

IF  msn  =  '  ' 

RELEASE  msn, flag 
RETURN 
END  IF 
FIND  &msn 
IF  #<>0 

SET  COLOR  TO  112, 140 

0  12,  10  SAY  'THIS  SERIAL  #  IS  ALREADY  ON  FI 

0  13, 40  SAY  CHR ( 7 ) 

SET  TALK  OFF 
STORE  1  TO  v 
DO  WHILE  v<200 

STORE  v  +*  1  TO  v 
ENDDO  WHILE  v<250 
SET  COLOR  TO  30, 14 
LOOP 
ENDIF  # < >0 
ERASE 

0  4,23  SAY  'ADDING  TO  OFFICER  RECORD' 

STORE  '  '  TO  mname 

STORE  '  '  TO  mcorps 

STORE  0  TO  mrankid 

STORE  '  '  TO  meduid 

STORE  '  '  TO  msex 

STORE  '  '  TO  mbirthdd 


TO  mbirthp 


STORE  '  '  TO  mbirthmm 

STORE  '  '  TO  mbirthyy 

STORE  ' 

STORE  '  '  TO  itireligion 


r_a 

7,  23 

SAY  ' 

SERIAL 

NUMBER 

/ 

+  msn 

0 

Q,  23 

SAY  ' 

NAME 

GET 

mname 

0 

9,  23 

SAY  ' 

CORPS 

* 

GET 

mcorps 

0 

10,  23 

SAY 

'RANK 

t 

GET 

nr ankid 

0 

11,  23 

SAY 

'MIL. 

EDUCATION 

/ 

GET 

meduid 

0 

12,  23 

SAY 

'SEX 

» 

GET 

msex 

0 

13,  23 

SAY 

' BIRTH 

DAY 

* 

GET 

mbirthdd 

0 

14,  23 

SAY 

' BIRTH 

MONTH 

* 

GET 

mbirthmm 

0 

15,  23 

SAY 

' BIRTH 

YEAR 

t 

GET 

mbirthyy 

0 

IS,  23 

SAY 

' BIRTH 

PLACE 

/ 

GET 

mbirthp 

0 

17,  23 

SAY 

'RELIGION 

t 

GET 

mreligion 

0 

20,  10 

say 

'  HIT 

ENTER  TO 

RETURN 

TO 

OFFICER  MENU  OPTION 

READ 

IF  mname  =  '  ' 

LOOP 
END  IF 

*  add  the  record 
APPEND  BLANK 

REPLACE  serno  WITH  msn  ,  name  WITH  mname  ,  corps  WITH  rncor 
REPLACE  rankid  WITH  mrankid, eduid  WITH  medu id, sex ; 

WITH  msex 

REPLACE  birthdd  WITH  mbirthdd  , birthmm  WITH  mbirthmm 
REPLACE  birthyy  WITH  mbirthyy  , birthp  WITH  mbirthp 
REPLACE  religion  WITH  mreligion 

ENDDO  WHILE  t 
USE  OFFICER 

INDEX  ON  SERNO  TO  ADDOFF 

ERASE 

RETURN 


2/2 


AD-A171  392 
UNCLASSIFIED 


DESIGN  AND  IHPLEHENTATION  OF  A  PERSONNEL  DATABASE 
SVSTEN  FOR  INDONESIAN  NAVAL  OFFICERS(U)  NAVAL 
POSTGRADUATE  SCHOOL  HONTEREV  CA  D  N  ARIVADI  JUN  86 

F/G  3/1 


PROGRAM  NAME  :  QUERYA. PRG 
AUTHOR  :  DJOKO  M.  ARIYADI 

DATE  WRITTEN  :  MAY,  1986 

PURPOSE  :  TO  LIST  OFFICERS  WHO  HAVE  ACHIEVED  A  GIVEN  * 

MILITARY  EDUCATION  LEVEL 
PROGRAMS  CALLED  BY  THIS  PROGRAM  ARE  : 

DBF  FILES  USED  ARE  :  MILEDU.  MEDULIST, OFFICER,  CORPS, RANK  * 


SET  TALK  OFF 
ERASE 

SET  CONSOLE  ON 
STORE  T  TO  FLAG 
SET  COLOR  TO  30, 14 
STORE  T  TO  Q : FLAG 
DO  WHILE  Q : FLAG 
ERASE 

<?  2,  1  SAY  "QUERY  MILITARY  EDUCATION  LEVEL 

MAY  1936 " 

SET  COLOR  TO  4 


SET  COLOR  TO  30,  14 

y  n  n 
7  n  n 
O  *  » 

n  n 
O  n  n 

?  "  Given  a  Military  Education  Level,  this  proqram; 

will  respond  with  : " 

?  w  n 

?  "  NAME,  RANK,  EDUCATION  LEVEL,  YEAR-END" 

*>  »  »• 
m  n 

?  "  The  following  is  a  list  of  Military  Education  Levels; 
and  their  codes  ” 

•>  n  * 

?  *  You  can  query  one  at  a  time  " 

*>  *»  n 

>?  n  n 


SET  COLOR  TO  4 

7  *  SSSSSSSSS2SSSSS 
S222SS7S2S22222222SS2 


SET  CONSOLE  OFF 
WAIT 

SET  CONSOLE  ON 
ERASE 


:  2  s  s  s  s  s  s  : 


TYPE  ANY  KEY  TO  CONTINUE" 
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DO  WHILE  0 : FLAG 
ERASE 

0  2,  1  SAY  "QUERY  MILITARY  EDUCATION  LEVEL ; 

MAY  1986" 

SET  COLOR  TO  4 


SET  COLOR  TO  30, 14 
USE  MEDLEV 

?  "  MIL.  EDUCATION  #  DESCRIPTION" 

1  *  n 

LIST  *  "  *  MEDLEVID  ♦  ■  *  * ; 

MEDLEDES  OFF 

SET  COLOR, TO  30,14 

<>  *  n 

■>  If  H 

TEXT 

PLEASE  SELECT  ONE  DESIRED  MIL.  EDUCATION  NUMBER, : 
ACCORDING  TO 

THE  ABOVE  LIST  (2  DIGITS  PLEASE >  e.  g.  "15*  AND  HIT; 
"RETURN"  KEY 
ENDTEXT 

SET  COLOR  TO  4 

<>  n  n 

?  "  TO  FINISH  (RETURN  TO  QUERY  MENU  OPTION)  HIT 

'RETURN ' " 

«  «  « 

o  «  n 

SET  COLOR  TO  30, 14 

ACCEPT  "  ENTER  MIL.  EDUCATION  NUMBER; 

(  2  DIGITS  )  *  TO  Q.-MNO 

ERASE 

0  12,20  SAY  "BE  PATIENT  PLEASE,  STILL  PROCESSING" 

IF  QsMNO  *  "  " 

RELEASE  ALL  LIKE  Q* 

ERASE 

STORE  F  TO  Q: FOUND 
STORE  F  TO  Q : FLAG 
ELSE 

STORE  F  TO  Q: FOUND 
USE  MEDLEV 

INDEX  ON  MEDLEVID  TO  QUERY 1 
SET  INDEX  TO  QUERY1 
FIND  "&G : MNO" 

IF  #  =  0 
ERASE 

SET  COLOR  TO  112, 140 

0  10,9  SAY  "  SORRY  SCHOOL  CANNOT  BE  FOUND 

0  W  It 

?  "  PLEASE,  SEE  THE  MIL.  EDUCATION  NUMBER; 

LIST,  AND  TRY  AGAIN" 
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iAj 


«  •  • 

?  "  TYPE  ANY  KEY,  TC  CONTINUE" 

SET  CONSOLE  OFF 

WAIT 

SET  CONSOLE  ON 
ERASE 

STORE  F  TO  Q: FOUND 
ELSE 

STORE  T  TO  Q: FOUND 
ENDIF 
ENDIF 
IF  Q: FOUND 

STORE  MEDLEDES  TO  QjMEDLEV 
,  ERASE 

STORE  MEDLEVID  TO  Q : MNO 
USE  MEDLEV 

COPY  TO  TF1  FOR  MEDLEVID  =  "&Q:MNO" 

USE  TF1 

SELECT  SECONDARY 
USE  MILEDU 

JOIN  TO  TF2  FOR  P.  MEDLEVID  =  S. MEDLEVID  FIELDS  G.  MEDUID,  SERNO.  ; 
MYYEDED, MEDURANK 

USE  TF2 

SELECT  SECONDARY 
USE  MEDULIST 

JOIN  TO  TF3  FOR  P.  MEDUID  =  S.  M&DUID  FIELDS  MEDUDES, P. SERNO. ; 

P. MYYEDED, P. MEDURANK 

USE  TF3 

SELECT  SECONDARY 
USE  OFFICER 

JOIN  TO  TF4  FCR  P. SERNO  =  S. SERNO  FIELDS  SERNO,  NAME,  RANKID,  ; 

P. MEDURANK, P. MEDUDES, P. MYYEDED, CORPS 

USE  TF4 

SELECT  SECONDARY 
USE  CORPCODE 

JOIN  TO  TF5  FOR  P. CORPSES. CORPS  FIELDS  CORPSDES, P. MEDURANK.  ; 
P. SERNO, P. NAME, P. RANKID, P. MEDUDES, P. MYYEDED 

USE  TF5 

SELECT  SECONDARY 
USE  RANKLIST 

JOIN  TO  TF6  FOR  P. RANKID*S. RANKID  FIELDS  RANKDES, P. SERNO, ; 

P. NAME. P. MEDUDES, P. MYYEDED, P. CORPSDES 

STORE  T  TO  □ : FLAG2 
DO  WHILE  Q : FLAG2 

<?  10,  fl  SAY  "  DO  YOU  WANT  TC  SEE  THE  LIST  ON  ; 
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SCREEN  or  HARDCOPY  ?" 


ACCEPT  *  E 

FOR  HARDCOPY*  TO  Q : PRN 
READ 

DO  CASE 

CASE  Q : PRN  =  's' 

STORE  F  TO  0 : FLAG2 
ERASE 

CASE  Q:PRN  *  'h' 

STORE  F  TO  Q : FLAG2 
ERASE 

SET  PRINT  ON 
ERASE 
OTHERWISE 
DO  ERROR 
ERASE 

STORE  T  TO  Q : FLAG2 
LOOP 
ENDCASE 
ENDDO 


ENTER  's'  FOR  SCREEN  or  'h 


USE  TF1 

•>  « 


EQUIVALENT  WITH  THE  LEVEL 


LIST 


"  *  MEDLEDE3  OFF 


?  "  NAME  RANK 

SCHOOL  YEAR-END" 

?  n  s  s  s  a  S  S  S  S  S  S  S  S  S  3  S  S  S  S  S  s  s  s  s  s  s 


aasasaassasaaxssssasss^a?*^: 


use  tf6 

LIST  "  "  *  NAME  *  "  "  *  RANKDES  *  "  "  *  MEDUDES 
MYYEDED  OFF 

SET  COLOR  TO  4 


?  " 

SET  CONSOLE  OFF 
WAIT 

SET  CONSOLE  ON 
SET  PRINT  OFF 
ENDIF 
ENDDO 
ERASE 
ENDDO 
ERASE 
RETURN 


TYPE  ANY  KEY  TO  CONTINUE 


PROGRAM  NAME 
AUTHOR 

DATE  WRITTEN 
PURPOSE 


QUERYB. PRG 
DJQKO  M.  ARIYADI 
MAY,  1986 

TO  LIST  OFFICERS  CURRENTLY  ATTENDING 
MILITARY  SCHOOL 

PROGRAMS  CALLED  BY  THIS  PROGRAM  ARE  : 

DBF  FILES  USED  ARE  :  MILEDU.  MEDULIST, OFFICER,  CORPS. RANK 


SET  TALK  OFF 
ERASE 

SET  CONSOLE  ON 
STORE  T  TO  FLAG 
SET  COLOR  TO  30,  14 
STORE  T  TO  Q : FLAG 
DO  WHILE  Q : FLAG 
ERASE 

Oft  * 

<?  2,  1  SAY  "QUERY 
SCHOOL 

SET  COLOR  TO  4 


TYPES  OF  MILITARY; 


MAY  1986" 


SET  COLOR  TO  30,  14 

O  ft  ft 
Oft  ft 
Oft  ft 
Oft  ft 

?  "  Given  a  Specific  Military  School.  This  program  vxij ; 
respond  with  :  " 

Oft  ft 

?  "  SERNO,  NAME,  RANK,  NAME  OF  SCHOOL, ; 

YEAR-START" 


You  can  query  one  code  at  a  time 


?  "  The  following  is  a  list  of  Military  School  and; 

their  codes" 

Oft  ft 
o  ft 

know" 

Oft  ft 
Oft  ft 
Oft  ft 
Oft  ft 

SET  COLOR  TO  4 

CS  =  %  =  =  3S338S2SS3SS33:SSSft 

f  ft  ft 

?  "  TYPE  ANY  KEY  TO  CONTINUE" 

SET  CONSOLE  OFF 
WAIT 

SET  CONSOLE  ON 
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ERASE 

DO  WHILE  Q : FLAG 
ERASE 

@2,1  SAY  "QUERY  TYPES  OF  MILITARY; 

SCHOOLS  MAY  1986" 

SET  COLOR  TO  4 

SS3S43S3SS3XSSS=SS3Sr3Z=SStt 

SET  COLOR  TO  30, 14 
USE  MEDULIST 

?  "  MIL.  SCHOOL  #  DESCRIPTION" 

0  n  n 

LIST  "  "  ♦  MEDUID  *  "  "  *  ; 

MEDUDES  OFF 

SET  COLOR  TO  30, 14 

o  »  n 


*>  N  * 

TEXT 

PLEASE  SELECT  ONE  DESIRED  MIL.  SCHOOL  NUMBER, ; 

ACCORDING  TO 

THE  ABOVE  LIST  (2  DIGITS  PLEASE)  e. g.  "06"  AND  HIT; 
"RETURN"  KEY 
ENDTEXT 

SET  COLOR  TO  4 

o  W  w 

?  "  TO  FINISH  ( RETURN  TO  QUERY  MENU  OPTION); 

HIT  'RETURN'" 

o  *»  « 

n  m 

SET  COLOR  TO  30, 14 

ACCEPT  "  ENTER  MIL.  SCHOOL  NUMBER; 

(  2  DIGITS  )  ■  TO  Q : MNO 


ERASE 

9  12,20  SAY  "BE  PATIENT  PLEASE,  STILL  PROCESSING" 
IF  Q : MNO  =  "  " 

RELEASE  ALL  LIKE  Q* 

ERASE 

STORE  F  TO  Q; FOUND 
STORE  F  TO  Q:FLAG 
ELSE 

STORE  F  TO  Q: FOUND 
USE  MEDULIST 

INDEX  ON  MEDUID  TO  QUERY2 
SET  INDEX  TO  0UERY2 
FIND  " &Q : MNO" 

IF  #  =  0 
ERASE 

SET  COLOR  TO  112,140 
9  10,9  SAY  " 


FOUND" 


SORRY,  SCHOOL  CANNOT  BE; 


?  "  PLEASE  SEE  THE  MIL.  SCHOOL  NUMBER  LIST; 

AND  TRY  ANOTHER  NUMBER" 

m  n 

?"  TYPE  ANY  KEY.  TC ; 

CONTINUE" 

SET  CONSOLE  OFF 
WAIT 

SET  CONSOLE  ON 
ERASE 

STORE  F  TO  Q: FOUND 
ELSE 

STORE  T  TO  Os  FOUND 
ENDIF 
ENDIF 

IF  0: FOUND 

STORE  MEDUDES  TO  Q : MEDLST 
ERASE 

STORE  MEDUID  TO  Q.-MNO 
USE  MEDULIST 

COPY  TO  TF1  FOR  MEDUID  »  *tQ:MNO" 

USE  TF1 

SELECT  SECONDARY 
USE  MTLEDU 

JOIN  TO  TF2  FOR  P. MEDUID=S. MEDUID  FIELDS  SERNO, MYYED3T, ; 
MEDURANK 

USE  TF2 

SELECT  SECONDARY 
USE  OFFICER 

JOIN  TO  TF3  FOR  P. SERNO*S. SERNO  FIELDS  SERNO, NAME. CORPS, ; 
RANKID, P. MEDURANK, P. MYYEDST 


USE  TF3 

SELECT  SECONDARY 
USE  CORPCODE 

JOIN  TO  TF4  FOR  P. CORPSES. CORPS  FIELDS  C0RPSDE3, P. SERNO. ; 

P. NAME. P. RANKID, P. MEDURANK, P. MYYEDST 

USE  TF4 

SELECT  SECONDARY 
USE  RANKLIST 

JOIN  TO  TF5  FOR  P. RANKID*S. RANKID  FIELDS  RANKDES,  P.  CORPSDEL,  ; 
P. SERNO, P. NAME, P. MYYEDST 


STORE  T  TO  Q : FLAG2 
DC  WHILE  Q : FLAG2 


<?  10,  B  SAY 
or  HARDCOPY  ?" 

«*  n 

ACCEPT  " 


DO  YOU  WANT  TO  SEE  THE  LIST  ON  SCREEN; 


ENTER  's'  FOR  SCREEN  or  'h'; 


*r  * 


FCR  HARDCOPY"  TO  QsPRN 
READ 

DO  CASE 

CASE  Q:PRN  =  's' 

STORE  F  TO  0  :  FL.AG2 
ERASE 

CASE  Q : PRN  *  'h' 

STORE  F  TO  Q : FLAG2 
ERASE 

SET  PRINT  ON 
ERASE 
OTHERWISE 
DO  ERROR 
ERASE 

STORE  T  TO  Q  :  FL.AG2 
LOOP 
ENDCASE 
ENDDO 


USE  TF1 

LIST  "  "  <■  MEDUDES  CF 

?  •  THE  NAMES  OF  OFFICER 


n  n 

?  "  SERNO  RANK  NAME 

CORPS  YEAR-START" 

?  •*  =  =  =  s  =  - =  -  =  -  •  •  r  = 

xaasssaxssasazsssssssssssssss1* 

uce  t£5 

LIST  "  »  «■  SERNO  ♦  •  •  ♦  RANKDES  ►  *  "  ♦  NAME 
CORPSDES  -  »  "  MYYEDST  OFF 

SET  COLOR  TO  4 


SET  CONSOLE  OFF 
WAIT 

SET  CONSOLE  ON 
SET  PRINT  OFF 
ENDIF 
ENDDO 
ERASE 
ENDDO 
ERASE 
RETURN 


TYPE  ANY  KEY  TO  GLUT . NUE " 
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u.  n 


mmmmm 


PROGRAM  NAME  :  QUERYC. PRG 
AUTHOR  :  DJCKO  M.  ARIYADI 

DATE  WRITTEN  :  MAY,  1986 

PURPOSE  s  GIVEN  A  SERIAL  NUMBER,  TO  DESCRIBE  THAT 

THAT  OFFICER'S  PROMOTION  HISTORY 
PROGRAMS  CALLED  BY  THIS  PROGRAM  ARE  : 

DBF  FILES  USED  ARE  :  OFFICER,  CORPS,  RANK,  RANKLIST 


SET  TALK  OFF 
ERASE 

SET  CONSOLE  ON 
STORE  T  TO  FLAG 
SET  COLOR  TO  30, 14 
STORE  T  TO  CjFLAG 
DO  WHILE  <3:  FLAG 
ERASE 

O  *  * 


(I  2,  1  SAY  "QUERY 

MAY  1986" 

SET  COLOR  TO  4 

'j  n  -  —  -  -  -  s -------  -  -  -  -  =  ___  - 


OFFICER'S  PROMOTION  HISTORY 


SET  COLOR  TO  30, 14 

o  If  n 


O  ft  it 

o  it  n 

?  it  « 


?  n  Given  an  Officer's  Serial  Number,  this  program; 
will  respond  with  : * 

it  »t 

?  "  HIS  PROMOTION  HISTORY,  INCLUDING  DATE  AND; 

ORDER  NUMBER  " 


?  "  The  following  is  a  list  of  Officer's  Serial; 

Number  and  it's  name  " 

O  W  * 

?  "  You  can  type  serial  number  which  you  like; 

to  know" 
r>  w  n 

2  It  It 

n  n 

*  it 

SET  COLOR  TO  4 


?  " 

SET  CONSOLE  OFF 


TYPE  ANY  KEY  TO  CONTINUE" 
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WAIT 


SET  CONSOLE  ON 
ERASE 

DC  WHILE  Q : FLAG 
ERASE 

@2,1  SAY  "QUERY  OFFICER'S  RANK  ; 

HISTORY  MAY  1986" 

SET  COLOR  TO  4 


SET  COLOR  TO  30, 14 
USE  OFFICER 

INDEX  ON  SERNO  TO  DXOFF 


SET 

INDEX  TO  DXOFF 

?  * 

OFFICER'S  SERIAL  #, 

ALREADY  ON  THIS; 

?  * 

It 

SERIAL  # 

NAME" 

LIST  "  "  «■  SERNO  *  "  "  -  NAME ; 

OFF 

SET  COLOR  TO  30, 14 

V 

*i  n 

TEXT 

PLEASE  SELECT  ONE  DESIRED  MIL.  EDUCATION  NUMBER,  ; 
ACCORDING  TO 

THE  ABOVE  LIST  <2  DIGITS  PLEASE)  e. q.  "06"  AND  HIT; 
"RETURN"  KEY 
ENDTEXT 

SET  COLOR  TO  4 


TO  FINISH  (RETURN  TO  QUERY  MENU  OPTION) 


HIT  'RETURN'" 

?  n  n 

SET  COLOR  TO  30, 14 

ACCEPT  "  ENTER  SERIAL  NUMBER  e. q : 

(  6  DIGITS  )  "  TO  Q : MNO 
ERASE 

@  12,20  SAY  "BE  PATIENT  PLEASE,  STILL  PROCESSING" 

IF  Q : MNC  =  »  " 

RELEASE  ALL  LIKE  Q» 

ERASE 

STORE  F  TO  Q: FOUND 
STORE  F  TO  Q : FLAG 
ELSE 

STORE  F  TO  Q: FOUND 
FIND  "&Q: MNO" 


IF  #=0 


ERASE 

SET  COLOR  TO  112, 140 

<?  10,9  SAY  "  SORRY,  SERIAL  NUMBER  CANNOT 


BE; 


FOUND* 


->  n 


?  " 

AND  TRY  AGAIN* 


PLEASE,  SEE  THE  SERIAL  NUMBER'S  LIST; 


?"  TYPE  ANY  KEY,  TO  CONTINUE* 

SET  CONSOLE  OFF 

WAIT 

SET  CONSOLE  ON 
ERASE 

STORE  F  TO  Q: FOUND 
ELSE 

STORE  T  TO  Q: FOUND 
ENDIF 
ENDIF 

IF  0: FOUND 

STORE  NAME  TO  0:0FF 
ERASE 

STORE  SERNO  TO  0 : MNO 
USE  OFFICER 

COPY  TO  TF1  FOR  SERNO  =  "S.Q:MNO" 


USE  TF1 

SELECT  SECONDARY 
USE  RANKLIST 

JOIN  TO  TEMPI  FOR  P. RANKID=S.  RANKID  FIELDS  P.  SERNO,  P.  NAME,  ; 
RANKDES, P. CORPS 

USE  TEMPI 
SELECT  SECONDARY 
USE  CORPCQDE 

JOIN  TO  TEMP2  FOR  P . CORPS  =  S.  CORPS  FIELDS  P.  SERNO,  P.  NAME,  ; 

P. RANKDES, CORPSDES. P. NAME 

USE  TF1 

SELECT  SECONDARY 
USE  RANK 

JOIN  TO  TF  FOR  P. SERNO=S. SERNO  FIELDS  S. RANKID, RANKDD, RANKMM, ; 
RANKYY, RORNO, EDATORNO 

USE  TF 

SELECT  SECONDARY 
USE  RANKLIST 

JOIN  TO  TF3  FOR  P. RANKID=S. RANKID  FIELDS  RANKDES, P. RANKDD, ; 

P. RANKMM. P. RANKYY, P. RORNO, P. RDATORNO 
USE  TF3 

SORT  ON  RANKYY  TO  TF4  ASCENDING 

STORE  T  TO  Q : FLAG2 
DO  WHILE  Q : FLAG2 

9  10,  8  SAY  "  DO  YOU  WANT  TO  SEE  THE  LIST  ON  SCREEN  ; 

or  HARDCOPY  ?" 


If 


ACCEPT  "  E 

FOR  HARDCOPY"  TO  Q :  PRN 
READ 

DO  CASE 

CASE  Q : PRN  =  's' 

STORE  F  TO  Q : FLAG2 
ERASE 

CASE  Q : PRN  =  'h' 

STORE  F  TO  Q : FLAG2 
ERASE 

SET  PRINT  ON 
ERASE 
OTHERWISE 
DO  ERROR 
ERASE 

STORE  T  TO  Q : FLAG2 
LCOP 
ENDCASE 
ENDDO 


ENTER  's'  FOR  SCREEN  or  'h'; 


use  temp: 


PROMOTION  HISTORY  FOR 


LIST  " 

"  "  *  CORPSDES  OFF 


*  SERNO  *  "  "  *  NAME  *  "  "  *  RANKDES  - 


O  n  n 


?  "  RANK 
ORDER-NUMBER" 


DATE 


MONTH 


YEAR  ; 


USE  TF4 

LIST  "  "  -  RANKDES  -  " 
RANKMM  ♦  "  "  -  RANKYY  *  " 

SET  COLOR  TO  4 

O  »  -  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  - =  =  : 


RANKDD  *  " 

"  *  RQRNO  OFF 


TYPE  ANY  KEY  TO  CONTINUE’ 


SET  CONSOLE  OFF 
WAIT 

SET  CONSOLE  ON 
SET  PRINT  OFF 
ENDIF 
ENDDO 
ERASE 
ENDDO 
ERASE 
RETURN 


*  PROGRAM  NAME  :  OUERYD. PRG 

*  AUTHOR  :  DJOKO  M.  ARIYADI 

*  DATE  WRITTEN  :  MAY,  1986 

*  PURPOSE  :  TO  OBTAIN  AN  OFFICER'S  JOB  HISTORY.  GIVEN  A 

*  SERIAL  NUMBER 

*  PROGRAMS  CALLED  BY  THIS  PROGRAM  ARE  : 

*  DBF  FILES  USED  ARE  :  OFFICER,  CORPS,  RANKLIST,  JQBQFF,  JGBLIST* 


SET  TALK  OFF 
ERASE 

SET  CONSOLE  ON 
STORE  T  TO  FLAG 
SET  COLOR  TO  30, 14 
STORE  T  TO  Q:FLAG 
DO  WHILE  Q : FLAG 
ERASE 

7  **  h 

02,1  SAY  "QUERY  OFFICER'S  JOB ; 

HISTORY  MAY  1986" 

SET  COLOR  TO  4 


SET  COLOR  TO  30, 14 

7  ft  it 
7  ft  ft 
7  n  ft 
7  m  it 

?  "  Given  a  Officer's  Serial  Number,  This  program; 

respond  with  :  " 

o  «  « 

?  "  OFFICER'S  JOB  HISTORY,  INCLUDES  RANK,  DATE. ; 

STATION,  AND  CITY" 

9  »  l» 


?  r‘  The  following  is  a  list  of  Officer's  Serial; 

Number  and  their  name  " 

7  ft  It 

?  "  You  can  query  one  serial  number  at  a  time; 

to  know" 

7  ft  ft 

7  *  it 

7  ft  it 

7  »  It 

SET  COLOR  TO  4 


9  n  ■ 

?  " 

SET  CONSOLE  OFF 
WAIT 


TYPE  ANY  KEY  TO  CONTINUE 


SET  CONSOLE  ON 
ERASE 

DO  WHILE  Q : FLAG 
ERASE 

@2,1  SAY  "QUERY  OFFICER'S  JOB  HISTORY 

WAY  19B6" 


SET  COLOR  TO  4 


SET  COLOR  TO  30, 14 
USE  OFFICER 

INDEX  ON  SERNC  TO  DXOFF 
SET  INDEX  TO  DXOFF 

?  "  OFFICER'S  SERIAL  #,  ALREADY  CN  THIS; 

FILE" 

*>»<*. 

?  "  SERIAL  #  NAME" 

f  n  n 

LIST  "  "  *  SERNO  *  "  "  ♦  ; 

NAME  OFF 

SET  COLOR  TO  30, 14 

«>  n  n 
tun 

TEXT 

PLEASE  SELECT  ONE  DESIRED  OFFICER'  SERIAL  NUM2ER,  ; 
ACCORDING  TO 

THE  ABOVE  LIST  <6  DIGITS  PLEASE)  e. g.  "001111"  AND  ; 
HIT  "RETURN"  KEY 
ENDTEXT 

SET  COLOR  TO  4 

O  *  n 

?  "  TO  FINISH  (RETURN  TO  QUERY  MENU  OPTION); 

HIT  'RETURN'" 

SET  COLOR  TO  30, 14 

ACCEPT  "  ENTER  SERIAL  NUMBER  e.q; 

(  6  DIGITS  )  "  TO  Q : MNO 

ERASE 

@  12,20  SAY  "BE  PATIENT  PLEASE,  STILL  PROCESSING" 

IF  Q : MNO  *  "  " 

RELEASE  ALL  LIKE  Q* 

ERASE 

STORE  F  TO  Q: FOUND 
STORE  F  TO  Q : FLAG 
ELSE 

STORE  F  TO  Q: FOUND 
FIND  "&Q  s  MNO" 

IF  #  =  0 
ERASE 

SET  COLOR  TO  112, 140 
@  10, 9  SAY  » 


SORRY,  SERIAL  NUMBER  CANNOT  BE 


i  m  u  w  m  vmmmmmmmmmmmmwm  »« 


iHllli  ^9Tr« 


FOUND" 


H  If 

?  * 

AND  TRY  AGAIN" 

o  »  it 


PLEASE,  SEE  THE  SERIAL  NUMBER  LIST; 


?"  TYPE  ANY  KEY,  TO  CONTINUE" 

SET  CONSOLE  OFF 

WAIT 

SET  CONSOLE  ON 
ERASE 

STORE  F  TO  Qj FOUND 
ELSE 

STORE  T  TO  Q: FOUND 
ENDIF- 
ENDIF 
IF  Q; FOUND 

STORE  NAME  TO  Q s OFF 
ERASE 

STORE  SERNO  TO  Q : MNO 
USE  OFFICER 

COPY  TO  TF1  FOR  SERNO  =  "&Q:MNO" 

USE  TF1 

SELECT  SECONDARY 
USE  RANKLIST 

JOIN  TO  TEMPI  FOR  P, RANKID=S. RANKID  FIELDS  P. SERNO. P. NAME, ; 
RANKDES, P. CORPS 


USE  TEMPI 
SELECT  SECONDARY 
USE  CORPCODE 

JOIN  TO  TEMP2  FOR  P. CORPS=S. CORPS  FIELDS  P. SERNO, P. NAME, ; 
P. RANKDES, CORPSDES 


USE  TF1 

SELECT  SECONDARY 
USE  JOBOFF 

JOIN  TO  TF  FOR  P. SERNO  =  S. SERNO  FIELDS  JOBRANK,  JOBID,  JOSDD,  ; 
JOBMM, JOBYY 

USE  TF 

SORT  ON  JOBRANK  TO  TF2  DESCENDING 
USE  TF2 

SELECT  SECONDARY 
USE  RANKLIST 

JOIN  TO  TF3  FOR  P. JOBRANK*S. RANKID  FIELDS  RANKDES,  P.  JOBID,  ; 
P. JOBDD, P. JOBMM, P. JOBYY 

USE  TF3 

SELECT  SECONDARY 
USE  JOBLIST 


JOIN  TO  TF4  FOR  P. JOBID=S. JOBID  FIELDS  JOBDES,  P. RANKDES.  ; 

P.  JOBDD,  P.  JOBMM,  P.  JOBYY,  JOBSTAT 

USE  TF4 

SELECT  SECONDARY 
USE  STATLIST 

JOIN  TO  TF5  FOR  P. JGBSTAT=S. STATCODE  FIELDS  CITYSTAT, STATDES 
P. JOBDES, P. RANKDES, P. JOBDD, P. JOBMM, P. JOBYY 

USE  TF5 

SELECT  SECONDARY 
USE  CITYLIST 

JOIN  TO  TFS  FOR  P. CITYSTAT=S. CITYCODE  FIELDS  P.  RANKDES,  ; 

P.  JOBDES,  P.  JOBDD,  P.  JOBMM,  P.  JOBYY,  P.  STATDES,  CITYD.ES 

STORE  T  TO  Q : FLAG2 
DO  WHILE  Q : FLAG2 

@  10,  8  SAY  "  DO  YOU  WANT  TO  SEE  THE  LIST  ON  SCREE 

or  HARDCOPY  ?" 

?  «  n 

ACCEPT  *  ENTER  's'  FOR  SCREEN  or  'h’i 

FOR  HARDCOPY"  TO  QsPRN 
READ 

DO  CASE 

CASE  Q : PRN  =  's' 

STORE  F  TO  Q : FLAG2 
ERASE 

CASE  Q : PRN  *  »h' 

STORE  F  TO  Q : FLAG2 
ERASE 

SET  PRINT  ON 
ERASE 
OTHERWISE 
DO  ERROR 
ERASE 

STORE  T  TO  Q : FLAG2 
LOOP 
ENDCASE 
ENDDO 


JOB  HISTORY  FOR  :  * 

"  *  NAME  ♦  "  "  -  RANKDES 


JOB 


USE  TEMP2 
?  " 

•>  n  n 

LIST  "  "  *  SERNO  *  * 

"  •  -  CORPSDES  OFF 
<■>  »  * 

?  "  RANK 

MM/YY  STATION  CITY" 


INDEX  ON  JQBYY-*  JQBMM  TO  TF7 
USE  TF6  INDEX  TF7 

LIST  RANKDES, JGBDES, J08MM, JOBYY. STATDES. CITYDES  GFF 
SET  COLCR  TO  4 

?  *  SSSS3SSSSS3S8S3SSSS3SSS«SSSSS3SSSS«SSSSSSSSSSrSS.S 


TYPE  ANY  KEY  TO  CONTINU 


SET  CONSOLE  OFF 
WAIT 

SET  CONSOLE  ON 
SET  PRINT  OFF 
END  IF 
ENDDO 
ERASE 
ENDDO 
ERASE 
RETURN 


*  PROGRAM  NAME  :  QUERYE. PRG 

*  AUTHOR  :  DJOKO  M.  ARIYADI 

*  DATE  WRITTEN  :  MAY.  1986 

*  PURPOSE  :  TO  OBTAIN  AN  OFFICER'S  JOB  ELIGIBLE 

*  PROGRAMS  CALLED  BY  THIS  PROGRAM  ARE  : 

*  DBF  FILES  USED  ARE  s  OFFICER,  CORPS,  RANKLIST,  JOBOFF,  JOBLIST ♦ 


SET  TALK  OFF 
ERASE 

SET  CONSOLE  ON 
STORE  T  TO  FLAG 

SET  COLOR  TO  30, 14 
STORE  T  TO  Q : FLAG 
DO  WHILE  Q : FLAG 
ERASE 

9  *•  » 

<?  2,  1  SAY  "QUERY  OFFICER'S  JCB  ; 

ELIGIBLE  MAY  1986" 


SET  COLOR  TO  4 


SET  COLOR  TO  30,  14 

9  m  n 


9  »  »• 

9  9  n 

?  *  Given  a  Officer's  Serial  Number, this  program  ; 

respond  with:  " 

9  n  n 

?  *  JOB  ELIGIBLE  INCLUDES,  JOB-ID,  DESCRIPTION.  ; 

STATION  AND  CITY" 

?  " 

?  " 

?  " 

?  " 

?  " 

SET  COLOR  TO  4 
'>»=  =  =  =  =  =  =  =  =  =  =  =  : 


:  =  3  " 


•»  It  « 

?  " 

SET  CONSOLE  OFF 
WAIT  • 

SET  CONSOLE  ON 
ERASE 


TYPE  ANY  KEY  TO  CONTINUE" 


DO  WHILE  Q.-FLAG 
ERASE 

9  2. 1  SAY  "QUERY  OFFICER'S  JOB  ELIGIBLE; 

MAY  1936 " 

SET  COLOR  TO  4 


SET  COLOR  TO  30, 14 
o  »  » 

7  *  a 

*  • 
o  «  * 

<>  *  * 
o  »  « 


TEXT 

PLEASE  SELECT  ONE  DESIRED  OFFICER'  SERIAL  NUMBER.  ; 

WHICH  YOU 

LIKE  TO  KNOW  (6  DIGITS  PLEASE)  e. g.  "333333"  AND  HIT  ; 
RETURN"  KEY 
ENDTEXT 

SET  COLOR  TO  4 

<>ft  * 

O*  ft  ft 

?  "  TO  FINISH  (RETURN  TO  QUERY  MENU  OPTION )  ; 

HIT  'RETURN'" 

Oft  « 

SET  COLOR  TO  30, 14 

O  "  -ft 

o  "  « 

ACCEPT  "  1  ENTER  SERIAL  NUMBER  e. q : 

<  6  DIGITS  )  "  TO  Q : MNO 


ERASE 

<?  12,20  SAY  "BE  PATIENT  PLEASE,  STILL  PROCESSING" 
USE  OFFICER 

INDEX  ON  SERNO  TO  DX0FF5 
USE  OFFICER  INDEX  DX0FF5 
IF  QsMNO  =  "  " 

RELEASE  ALL  LIKE  0* 

ERASE 

STORE  F  TO  0: FOUND 
STORE  F  TO  Q : FLAG 
ELSE 

STORE  F  TO  Q: FOUND 
FIND  " &Q : MNO" 

IF  #*0 
ERASE 

SET  COLOR  TO  112, 140 
9  10,9  SAY  " 


FOUND" 


SORRY,  SERIAL  NUMBER  CANNOT  BE 


?•  PLEASE,  SEE  THE  SERIAL  NUMBER  LIST  AND; 

TRY  AGAIN* 

•  • 

?•  TYPE  ANY  KEY,  TO  CONTINUE" 

SET  CONSOLE  OFF 

WAIT 

SET  CONSOLE  ON 
ERASE 

STORE  F  TO  0: FOUND 
ELSE 

STORE  T  TO  Q: FOUND 
ENDIF 
ENDIF 
IF  0: FOUND 

STORE  NAME  TO  Q i OFF 
ERASE 

STORE  SERNO  TO  Q : MNO 
USE  OFFICER 

COPY  TO  TF1S  FOR  SERNO  *  "AQsMNO" 

USE  TF15 
SELECT  SECONDARY 
USE  RANKLIST 

JOIN  TO  TEMP15  FOR  P. RANKID  =  S.  RANKID  FIELDS  P.  SERNC,  P.  NAME,  ; 
RANKDES, P. CORPS 

USE  TEMP15 
SELECT  SECONDARY 
USE  CORPCODE 

JOIN  TO  TEMP25  FOR  P.  CORPSES.  CORPS  FIELDS  P. SERNO, P. NAME,  ; 

P. RANKDES, CORPSDES 

STORE  T  TO  Q ; FLAG3 
DO  WHILE  Q : FLAG3 

9  10,8  SAY  "  JOB  AVAILABLE  FOR  THE  SAME  RANK  or  ; 

AFTER  PROMOTION  ?" 

o  <*  n 

ACCEPT  "  ENTER  's'  FOR  SAME  RANK  or  'p'; 

PROMOTION"  TO  Q : PRN 
READ 

DO  CASE 

CASE  Q : PRN  =  's' 

STORE  F  TO  Q : FLAGS 
use  tfl5 

SELECT  SECONDARY 
USE  JOBRNK 

JOIN  TO  TF25  FOR  P. RANKID=S. JOBRK  FIELDS  JOBID 
ERASE 

CASE  Q : PRN  =  'p' 

STORE  F  TO  Q : FLAG3 

ERASE 

USE  TF15 
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STORE  1  TC  RK 
STORE  RANKID  TO  MRANK 
STORE  MRANK  *RK  TO  RANKID 
USE  JOBRNK 

COPY  TO  TF25  FOR  JOBRK  *  RANKID 
OTHERWISE 
DO  ERROR 
ERASE 

STORE  T  TO  Q : FLAG3 
LOOP 
ENDCASE 
ENDDO 

USE  TF15 

SELECT  SECONDARY 
USE  JOBEDU 

JOIN  TO  TF35  FOR  P. EDUID=S. JOBED  FIELDS  JOBID 
USE  TF15 

SELECT  SECONDARY 
USE  JOBCORP 

JOIN  TO  TF4S  FOR  P. CORPS=S. JOBCO  FIELDS  JOBID 
USE  TF25 

SELECT  SECONDARY 
USE  TF35 

JOIN  TO  TF55  FOR  P.  JOBID  =  S. JOBID  FIELDS  JOBID 
USE  TF55 

SELECT  SECONDARY 
USE  TF45 

JOIN  TO  TF65  FOR  P.  JOBID  =  S. JOBID  FIELDS  JOBID 

USE  JOBLIST 
SELECT  SECONDARY 
USE  TF65 

JOIN  TO  TF75  FOR  P. JOBID=S. JOBID  FIELDS  P. JOBID, JOBDE3, JUBSTAT 
USE  TF75 

SELECT  SECONDARY 
USE  STATLIST 

JOIN  TO  TF85  FOR  P. JOBSTAT«S. STATCODE  FIELDS  STATDES, CITYSTAT. 
P. JOBID. P. JOBDES 

USE  TF85 

SELECT  SECONDARY 
USE  CITYLIST 

JOIN  TO  TF95  FOR  P. CITYSTAT=S. CITYCODE  FIELDS  P. JOBID. ; 

P. JOBDES, P. STATDES, CITYDES 

STORE  T  TO  0 : FLAG2 
DO  WHILE  Q-.FLAG2 
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9  10.  a  SAY  "  DO  YOU  WANT  TO  SEE  THE  LIST  ON  SCREEN; 

or  HARDCOPY  ?" 

«>  n  n 

ACCEPT  "  ENTER  's'  FOR  SCREEN  or  'h'; 

FOR  HARDCOPY"  TO  Q : PRN 
READ 

DO  CASE 

CASE  QjPRN  =  's' 

STORE  F  TO  Q : FLAG2 
ERASE 

CASE  Q  s PRN  *  'h' 

STORE  F  TO  Q : FLAG2 
ERASE 

SET  PRINT  ON 
ERASE 
OTHERWISE 
DO  ERROR 
ERASE 

STORE  T  TO  Q : FLAG2 
LOOP 
ENDCASE 

USE  TEMP25 

?  "  JOBS  ELIGIBLE  FOR 

•?  n  * 

LIST  "  "  ♦  SERNO  -  "  "  *  NAME  *  "  "  -  RANKDES; 

*  "  "  *  CORPSDES  OFF 

*  * 

?  "  JOB-ID  DESCRIPTION  STATION 

;  CITY" 


USE  TF95 

LIST  "  "  *  JOBID  *  "  "  -  JOBDES  -  "  »  *  STATDES  ♦ 

"  *  CITYDES  OFF 

SET  COLOR  TO  4 


TYPE  ANY  KEY  TO  CONTINUE" 


SET  CONSOLE  OFF 
WAIT 

SET  CONSOLE  ON 
SET  PRINT  OFF 
ENDIF 
ENDDC 
ERASE 
ENDDO 
ERASE 
RETURN 
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